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TERMS ANO CONDITIONS OF SALE ANO LICENSE OF RADIO SHACK AND TANDY COMPUTER 

EQUIPMENT AND SOFTWARE PURCHASED FROM A RAOIO SHACK COMPANY-OWNED COMPUTER 

CENTER RETAIL STORE OR FROM A RAOIO SHACK FRANCHISEE OR DEALER AT ITS 

AUTHORIZEO LOCATION 

LIMITED WARRANTY 

CUSTOMER OBLIGATIONS 

A, CUSTOMER assumes full responsibility that this computer hardware purchased (the Equipment i. and any 
copies of software included with the Equipment or licensed sepaiately ithe Softwaie - meets the specifica- 
tions, capacity, capabilities, versatility, and other requiiements of CUSTOMER. 

B. CUSTOMER assumes full responsibility fo- the cond-hoi! and effectiveness of the operating env ronment in 
which the Equipment and Software are to function, and for its installation 

RADIO SHACK LIMITED WARRANTIES AND CONDITIONS OF SALE 

A For a period of ninety (90) calendar days from the date o 1 the Radio Shack sales document received upon 

purchase of the Equipment, RADIO SHACK warrants to the original CUSTOMER that the Equipment and the 
medium upon which the Softwaie is stored is free from manufacturing defects. THIS WARRANTY IS ONLY 
APPLICABLE TO PURCHASES OF RAOIO SHACK AND TANOY EQUIPMENT BY THE ORIGINAL CUSTOMER 
FROM RAOIO SHACK COMPANY-OWNED COMPUTER CENTERS, RETAIL STORES ANO FROM RAOIO 
SHACK FRANCHISEES AND OEALERS AT ITS AUTHORIZEO LOCATION, Tne warranty is vo-d if the 
Equipment's case or cabinet has been opened, or if the Equipment or Software has been subiecteri to 
improper 01 abnormal use. If a manufacturing defect is discovered during the stated warranty period, the 
defective Equipment must be returned to a Radio Shack Computer Center, a Radio Shack tetail store, 
participating Radio Shack franchisee 01 Radio Shack dealer for repair, along with a copy of the sales 
document or lease agreement. The onginal CUSTOMER'S sole and exclusive remedy m the event of a defect 
is limited to the correction of the defect by repair, replacement. 01 refund of the purchase price, at RADIO 
SHACK'S election and sole expense. RADIO SHACK has no obligation to replace or lepair expendable items. 

B. RAOIO SHACK makes no warranty as to the design, capability, capacity, or suitability for use of the 
Software, except as piovided in this paragraph. Software is licensed on an AS IS" basis, without 
warranty. The onginal CUSTOMER'S exclusive remedy, in the event o! a Software manufacturing defect, is 
its repair or replacement within thirty (301 calendar days of the date of the Radio Shack sales document 
received upon license of the Software. The defective Software shall be returned to a Radio Shack Computer 
Center, a Radio Shack retail store, participating Radio Shack franchisee or Radio Snack dealer along with 
the sales document. 

C. Except as piovided herein no employee, agent, franchisee, dealer 01 other person is authorized to give any 
warranties of any natuie on behalf of RAOIO SHACK 

EXCEPT AS PR0VI0E0 HEREIN, RAOIO SHACK MAKES NO EXPRESS WARRANTIES, ANO ANY IMPLIED 

WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE IS LIMITED IN ITS 
OURATION TO THE DURATION OF THE WRITTEN LIMITED WARRANTIES SET FORTH HEREIN. 

E Some states do not allow limitations on how long an implied warranty lasts, so the above limitation(s) may 

not apply to CUSTOMER. 

LIMITATION OF LIABILITY 

A EXCEPT AS PR0VI0E0 HEREIN. RAOIO SHACK SHALL HAVE NO LIABILITY OR RESPONSIBILITY TO 

CUSTOMER OR ANY OTHER PERSON OR ENTITY WITH RESPECT TO ANY LIABILITY. LOSS OR DAMAGE 
CAUSEO OR ALLEGEO TO BE CAUSEO OIRECTLY OR INOIRECTLY BY "EQUIPMENT" OR SOFTWARE" 
SOLO LEASEO LICENSED OR FURNISHEO BY RADIO SHACK, INCLUDING, BUT NOT LIMITED TO, ANY 
INTERRUPTION OF SERVICE. LOSS OF BUSINESS OR ANTICIPATORY PROFITS OR CONSEQUENTIAL 
OAMAGES RESULTING FROM THE USE OR OPERATION OF THE 'EQUIPMENT' OR "SOFTWARE" IN NO 
EVENT SHALL RAOIO SHACK BE LIABLE FOR LOSS OF PROFITS. OR ANY INOIRECT, SPECIAL. OR 
CONSEQUENTIAL DAMAGES ARISING OUT OF ANY BREACH OF THIS WARRANTY OR IN ANY MANNER 
ARISING OUT OF OR CONNECTEO WITH THE SALE, LEASE, LICENSE, USE OR ANTICIPATED USE OF THE 
"EQUIPMENT" OR "SOFTWARE". 

NOTWITHSTANDING THE ABOVE LIMITATIONS ANO WARRANTIES. RAOIO SHACK'S LIABILITY 
HEREUNOER FOR OAMAGES INCURREO BY CUSTOMER OR OTHERS SHALL NOT EXCEEO THE AMOUNT 
PAIO BY CUSTOMER FOR THE PARTICULAR "EQUIPMENT" OR "SOFTWARE" INVOLVED. 

B. RAOIO SHACK shall not be liable for any damages caused by delay in delivering or furnishing Equipment 
and or Software. 

C. . No action arising out of any claimed breach of this Warranty or transactions undei this Warranty may be 

brought more than two (2) years after the cause of action has accrued or more than four (4) years after the 
date of the Radio Shack sales document for the Equipment or Software, whichever first occurs. 

0. Some states do not allow the limitation or exclusion of incidental or consequential damages, so the above 

limitation(s) or exclusion(s) may not apply to CUSTOMER. 

RADIO SHACK SOFTWARE LICENSE 

RAOIO SHACK grants to CUSTOMER a non-exclusive, paid-up license to use the Software on one computer, subject 

to the following provisions: 

A. Except as otherwise provided in this Software License, applicable copyright laws shall apply to the 
Softwaie, 

B Title to the medium on which the Software is recorded (cassette and or diskette- or stored (ROM) is 

transferred to CUSTOMER, but not title to the Softwaie, 
C. CUSTOMER may use Software on one host computer and access that Software through one oi more 

terminals if the Software permits this function, 
0. CUSTOMER shall not use, make, manufacture, or reproduce copies of Software except for use on one 

computer and as is specifically provided in this Software License, Customer is expressly prohibited from 

disassembling the Software, 

E. CUSTOMER -s permitted to make additional copies of the Software only for backup or archival purposes or 
if additional copies are required in the operation of one computer with the Software, but only to the extent 
the Softwaie allows a backup copy to be made. However, for TRSDOS Software, CUSTOMER is permitted 
to make a limited number of additional copies for CUSTOMER'S own use. 

F. CUSTOMER may resell or distribute unmodified copies of the Software provided CUSTOMER has purchased 
one copy of the Software for each one sold or distributed. The provisions of this Software License shall also 
be applicable to third parties receiving copies of the Software from CUSTOMER. 

G All copyright notices shall be retained on all copies of the Software 

APPLICABILITY OF WARRANTY ^ rn 

A The terms and conditions of this Warranty are applicable as between RADIO SHACK and CUSTOMER to 

either a sale of the Equipment and or Software License to CUSTOMER or to a transaction whereby RAOIO 
SHACK sells or conveys such Equipment to a third party for lease to CUSTOMER. 

B, The limitations of liability and Warranty provisions herein shall Inure to the benefit of RAOIO SHACK, the 
author owner and or licensor of the Software and any manufacturer of the Equipment sold by RADIO 
SHACK. 

STATE LAW RIGHTS _„„ rn 

The wananties granted herein give the original CUSTOMER specific legal rights, and the original CUSiOMER may 
have other rights which vary from state to state. 
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To All New Customers . . . 

If you don't know a thing about computers, relax — this book's for you! It 
has you "program" your computer using its own language — Extended 
Color BASIC. You'll start a little crazy by: 

Composing music Playing games 

Conducting light shows Painting pictures 

If you're straight business, be patient. Having fun's the fastest way to learn. 

So spend a few hours with your computer. Type whatever you want. Play 
with it. Be bold and strange. In other words . . . feel at ease! You have an 
amazing tool to command. 

And to All Upgrading Customers . . . 

Welcome back to the Color BASIC family! Let us introduce you to. . .slight 
drum roll, please . . . Extended Color BASIC. It has all the features of 
non-Extended Color BASIC plus much more. 

For example, with Extended Color BASIC you can: 

Draw a circle Edit a line 

Paint a house Square a root 

Cool off with a cube Play a symphony 

And even try a triangle! 

If you've read Getting Started with Color BASIC, you can skip half this 
book: 

Skip Section I except for Chapter 9. Chapter 9 shows how to use the 
Extended Color BASIC "Editor" — a great time-saver in typing prog- 
rams. 

Read Section II. You'll learn to use the most exciting features of 
Extended Color BASIC — high-resolution graphics and music. 

Skip Section III. 

Read Section IV. This shows how to use the rest of Extended Color 
BASIC'S expanded features. 



This Is How to Start . . . 

Connect your computer by referring to your Introducing Your Color Com- 
puter 2 or Introducing Your Deluxe Color Computer. 

Then power up your computer: 

1. Turn on your television set 

2. Select Channel 3 or 4 on the television set. 

3. Set the antenna switch to COMPUTER. 

4. Turn on the computer. The POWER button is on the left rear of your 
keyboard (when you're facing the front). 

This message appears on your screen: 

EXTENDED COLOR BASIC v.r, 

© 1980 TANDY 

OK 

(v.r. is two numbers specifying which version and release you have.) 

If you don't get this message: 

Turn the computer on and off again. 

Adjust the brightness and contrast on your television set. 

Check all the connections. 

If you still don't get this message, refer to "Troubleshooting and Mainte- 
nance" in Introducing Your Color Computer 2 or Introducing Your Deluxe 
Color Computer. 

Once you do get the above message, you're ready to start. 



How Do You Talk to a Computer? 

In this book, you'll learn how to talk to your computer. That's all program- 
ming is, by the way. Once you learn how to talk to your computer, you can 
tell it to do whatever you want. (Well, almost.) 

Your computer understands a language called Extended Color BASIC. This 
is an enhanced form of BASIC — Beginners All-Purpose Symbolic Instruc- 
tion Code. There are lots of computer languages. Extended Color BASIC 
just happens to be the one your computer understands. 

We'll introduce BASIC words in the order that they're easiest to learn. 
When you get midway in the book, you may forget what a word means. If 
this happens, simply look it up in your Quick Reference Card. 
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SECTION 1 



THE BASICS 

In this section you'll learn how to program. Before you start, though, put 
yourself in the right frame of mind . . . 

Don't try to do everything the "correct" way. Don't try to understand 
everything. Above all, please don't take our word for anything! 

Do have fun with your Color Computer. Try out your own ideas. Prove us 
wrong (if you can). Type anything and everything that comes to mind. 

Ready? Turn the page and begin. 



CHAPTER 1 



MEET YOUR COMPUTER 



Have you connected and turned on your computer? Are you ready to give 
it a first workout? 

This chapter and the next introduce you to your computer— the way it 
thinks, some of its talents, and even a couple of its quirks. By the time you 
reach Chapter 3, you'll be ready to program . . . promise! 

Type whatever you want. Then press the (ENTER) key. Don't worry about 
anything but the last line of type on your screen. It says: 

OK 

OK is the computer's "prompt." It's telling you, "OK, enough foolishness 
... as soon as you are ready . . ." (It patiently waits for your command.) 
You're the master— you tell the computer to do whatever you wish. 
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All letters you type should be 
BLACK with a GREEN 
BACKGROUND. It they're 
reversed (green with a black 
backg round), press the 
(SHIFT) and OD (zero) keys at 
the same time. 





o '^o '-- o '-* o '• o ' ; O : O ' 



Give the computer your first command. Type this exactly as it is below: 

PRINT "HI > I 'M YOUR COLOR COMPUTER" 

When you reach the right side of your screen, keep typing. The last part of 
the message appears on the next line. 

Now check your line. Did you put the quotation marks where we have 
them? If you made a mistake, no problem. Simply press the © key and the 
last character you typed disappears. Press it again and the next to the last 
disappears (. . . and so on and so on . . .). 
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See the blinking light? 
Wherever you see it, you can 
type something. 



Ready? This should be on your screen: 

OK 

PRINT "HI , I 'M YOUR COLOR COMPUT 

ER" 

Press the (ENTER) key and watch. Your screen should look like this: 
OK 

PRINT "HI , I 'M YOUR COLOR COMPUT 
ER" 

HI » I 'M YOUR COLOR COMPUTER 
OK 



\ 
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Your computer just obeyed you by printing the message you have in 
quotes. Have it print another message. Type: 

PRINT "2" 

Press ( ENTER) . The computer again obeys you and prints your next 
message: 



Try another one: 

PRINT "2 + 2" (ENTER") 
The computer obeys you by printing: 

2 + 2 

You probably expect much more than an electronic mimic . . . maybe 
some answers! Give your computer some numbers without the quotation 
marks. Type: 

PRINT 2 + 2 (HOIS 

Much better. This time the computer prints the answer: 

a 
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The quotation marks obviously have a meaning. Experiment with them 
some more. Type each of these lines: 

PRINT 5 + 4 (ENTER) 
PRINT "5 + 4" (MM) 



PRINT "5 + 4 EQUALS" 5 + 4 ( EMTEJ) 
PRINT 6/2 "I S 6/2 " (INTER) 
PRINT "8/ 2" (ENT ER) 
PRINT 8/2 (ENTER) 

Any conclusions on what the quotes do? 



RULES ON STRINGS v NUMBERS 

The computer sees everything you type as strings or numbers. If it's in 
quotes, it's a string. The computer sees it exactly as it is. If it's not in 
quotes, it's a number. The computer figures it out like a numerical 
problem. 



The computer thinks of 
quotes as a journalist does. If 
the number's in quotes, the 
computer must PRINT it ex- 
actly as it appears. If it's not 
in quotes, the computer can 
interpret it by adding, sub- 
tracting, multiplying, or di- 
viding it. 
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A Color Calculator, No Less! 

Any arithmetic problem is a snap for the computer. Do some long division. 

Type: 

PRINT "3862 DIMIDED BY 13.2 IS" 3862/ 13 . 2 (MM) 

Do a multiplication problem: 

PRINT 1589 * 23 (ENTER) 

Notice that the computer's multiplication sign is an asterisk (*), rather than 
the sign you use in math (X). The computer's so precise that it would get the 
X multiplication sign mixed up with the X alphabetical character. 

Try a few more problems: 



PRINT "15 * 



" 15*2 (ENTER) 



PRINT 18 * 18 "IS THE SQ UARE OF 18" (ENTER ) 

PRINT 33.3/22.82 (ENTER) 
Now it's your turn. Write two command lines that print these two problems 
as well as their answers: 

157 / 13.2 = 
95 * 43 = 



{ 



Notice how the computer 
handles parts in quotes v 
parts not in quotes. 



DO-IT-YOURSELF COMMAND LINES 
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Actually, there's no "cor- 
rect" command line. For 
that matter, there is no cor- 
rect way of handling your 
computer. There are many 
ways of getting it to do what 
you want. Relieved? . . . 
Good! 



If you use the "correct" command lines, this is what the computer prints on 
your screen: 

157 / 13.2 = 11.8939394 
95 * 43 = 4085 

Ready for the answers: 

PRINT "157 / 13.2 =" 157/13.2 
PRINT "95 * 43 =" 95*43 



It Has Its Rules . . . 

By now, the computer has probably printed some funny little messages on 
your screen. If it hasn't, type this line, deliberately misspelling the word 
PRINT: 

PRIINT "HI" ( ENTER) 

The computer prints: 

?SN ERROR 

?SN ERROR stands for "syntax" error. This is the computer's way of saying, 
"The command 'PRIINT' is not in my vocabulary ... I have no earthly idea 
what you want me to do." Any time you get the ?SN error, you probably 
made some kind of typographical mistake. 

The computer also gives you error messages when it does understand what 
you want it to do, but it feels you're asking it to do something that is 
illogical or impossible. For instance, try this: 

PRINT 5/0 (ENTER) 
The computer prints: 

?/0 ERROR 

which means, "Don't ask me to divide by 0— that's impossible!" 

If you get an error message you don't understand, flip to the Appendix. 
We've listed all the error messages there and what probably caused them. 
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If you don't get the right col- 
ors, refer to the color test in 
Introducing Your Color 
Computer 2. 



It's a Show-off Too 

So far, all you've seen your computer do is silently print on a green screen. 
But your color computer enjoys showing off. Type: 

CLS(3) (ENTER) 

Now your screen is a pretty shade of blue with a green stripe at the top. 
Your command told the computer to clear the screen and print color 
number 3 — blue. 

But why the green stripe? Whenever the computer prints characters, it must 
use a green background, not a blue background. Type some more charac- 
ters. The computer uses a green background for them also. 

Colors other than green are for printing pictures. You'll learn how to do that 
later. 
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Press (ENTER) to get the OK prompt. Then type: 

CLS<7) (INTER) 

Now your screen is magenta (pinkish purple) with a green stripe at the top. 
Try some more colors. Use any number from to 8. The Color Computer 
has nine colors. Each color has a numeric code. 

Type CLS without a number code: 

CLS (ENTER) 

If you don't use a number code, the computer assumes you simply want a 
clear green screen. 

Computer Sound Off— One, Two . . . 

Type this: 

SOUND 1 > 100 (INTER) 

If you don't hear anything, turn up the volume and try again. 

What you're hearing is 6 seconds of the lowest tone the computer can 
hum. How about the highest tone? Type: 

SOUND 255 t 100 (ENTER) 



BUG: If you see a message 
saying MICROSOFT, or if 
you see a ?FC Error message, 
you're using a number other 
than through 8. 





OK, so it has a good "hum-range" . . . hope you're suitably impressed. Try 
some other numbers. Hope you like the computer's voice (it's the only one 
it has). 

You want to know what the other number is for? (Or maybe you've already 
found out.) The second number tells the computer how long to hum the 
tone. You can use any number from 1 to 255. Try 1 : 



SOUND 128 t 1 (ENTER) 
The computer hums the tone for about 6/100ths of a second. Try 10: 



SOUND 128 t 10 (ENTER) 

The computer sounds the tone for 6/1 Oths of a second. Try variations of 
both numbers, but keep in the range of 1 to 255. 




BUC: Again, ifyougeta ?FC 
Error message, you're using 
a number other than 1 
through 255. 
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Before You Continue . . . 



Curious about the reversed 
colors? They're for people 
with a Cobr Computer 2 
and a printer. The printer 
prints all "reversed" letters 
in lowercase. 



If you have a Deluxe Color 
Computer, your computer 
can understand commands 
in "reversed" or "lower- 
case' type. See Introducing 
your Deluxe Color Com- 
puter to learn how to get in 
the upper/lower case mode. 



Press the (SHIFT) and 3D (zero) keys, holding both down at the same time. 
Now release them and type some letters. The letters you type should be 
green on a black background. If they're not, try again, pressing (SHIFT) 
slightly before QD- Be sure to hold down both keys at the same time and 
then release them. 



Now, with the colors "reversed," press ( ENTER) and then type this simple 
command line: 



PRINT "HI" (ENTER) 

The computer gives you a ?SN ERROR. It doesn't understand the 
command. 



Press the ( SHIFT) and QD characters again and release them. Type some 
letters . They should be back to normal: black with the green background. 
Press ( ENTER) and type the same command line again. This time it works. 

The computer can't un derstan d any commands you type with reversed 
colors. If you ever press ( SHIFT)QD b y mistake and find you're typing with 
these reversed colors, press ( SHIFTX TD again to get the colors back to 
normal. 



Learned in Chapter 1 



BASIC WORDS 

PRINT 

SOUND 

CLS 



KEYBOARD 
CHARACTERS 

& 
dNJjR) 



CONCEPTS 

string v numbers 
error messages 



A refresher like this is at the end of each chapter. It helps you make sure 
you didn't miss anything. 



Notes 



CHAPTER 2 



YOUR COMPUTER NEVER 

FORGETS 

(. . . unless you turn it 

off . . .) 



One skill that makes your computer so powerful is its "memory." Have it 
"remember" the number 13. Type: 



A = 13 (ENTER) 

Now "confu se" the computer by typing whatever you want. When you're 
done, press (ENTER) . See if the computer remembers what A means by 
typing: 

PRINT A (ENTER) 



Did it get confused? or 
forget? 




Your computer remembers that A is 13 as long as you have it on . . .or until 
you do this. Type: 



A = 17,2 (ENTER) 
If you ask it to PRINT A now, it prints 1 7.2. 
This is what happened in your computer's memory: 




You don't have to use the letter A. You can use any letters from A to Z. In 
fact, you can use any two letters from A to Z. Type: 



B = 15 (ENTER) 
C = 20 (ENTER) 
BC = 25 (ENTER) 



If you already know BASIC, 
you may be accustomed to 
using the word LET before 
these command lines. The 
Color Computer doesn't let 
you use the word LET. 
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To the computer, a dollar 
sign means a string. 



Have it print all the numbers you've asked it to remember. Type: 
PRINT fttBtC.BC 

If you want the computer to remember a "string" of letters or numbers, use 
a letter with a dollar sign ($). Type: 

A$ = "TRY TO" 

B$ = "REMEMBER" 

C$ = "THIS , YOU" 

BC$ = "GREAT COMPUTER" 

Then type: 



PRINT A$ t B$ t C$ t BC$ (ENTER) 



Try to set the computer to 
remember a letter we 
haven't used yet. What hap- 
pens? Interesting . . . 



As we said before, the com- 
puter has its rules and might 
get a little fussy with you if 
you don't play by them. 



"Computer types" have a name for all the letters you've used: "vari- 
ables." So far, you've used these variables: 




Spot-check the above variables to see if the computer remembers the right 
information. For instance, to see if BC still contains 25, type: 



PRINT BC (INTEH) 

Think of variables as little boxes in which you can store information. One 
set of boxes is for strings; the other set's for numbers. Each box has a label. 

The Computer Is Fussy About Its Rules 

Do you think the computer accepts these lines? 
"6" (INTER) 



D 

Z 



"THIS IS STRING DATA" (ENTER) 



TM stands for Type Mis- 
Match error. It means you 
didn't go by the rules. 



' The computer responds to both above lines with ?TM ERROR. It's telling 
you that you have to play by its rules. 



20 



The rules "ignored" by the above lines are: 

| RULES ON STRING DATA 

| (1) Any data in quotes is STRING DATA. 

| (2) You can assign STRING DATA only to variables WITH A $ SIGN. 



To make the above lines obey the computer's rules, use a dollar sign with 
the D and Z. Type: 



D* = "6" (ENTER) 



Z* = "THIS IS STRING DATA" (ENTER) 
The computer now accepts these lines. 
How about this line? Do you think the computer accepts it? 



D* = 6 (ENTER) 



The above line ignored these rules: 

RULES ON NUMERIC DATA 

(1) Numbers not in quotes are NUMERIC DATA. 

(2) Numeric data can only be assigned to variables WITHOUT A 
SIGN. 



Type this, which the computer accepts: 



D = S (ENTER) 



= 12 (ENTER) 
You've now added this to your com puter 's memory. 

YOUR COMPUTER'S MEMORY 

NUMBERS STRINGS 
o \ 

0,s f D — -6 D$ — -"6" 

O \ Z — -12 Z$ — -"THIS IS STRING DATA" 

Now do something interesting with what you've asked the computer to 
remember. Type: 

PRINT D * 2 (ENTJR) 

The computer prints the product of D times 2. ( t ^ t p ™ p £ ter remem ers 

Try this line: 

PRINT Z/D 
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The computer prints the quotient of Z divided by D. 
Would this work? 



PRINT D$ * 2 (ENTER) 

Did you try it? This makes the computer print the same ?TM ERROR. It 
cannot multiply string data. 

Cross out the commands below that the computer rejects: 



EXERCISE WITH VARIABLES 



F 


= 22.9999999 


M 


= "19.2" 


DZ$ = 


= "REMEMBER THIS FOR ME 


M$ ' 


= 15 


Z 


= F + F 



Finished? These are the commands the computer accepts. 

F = 22.9999999 

DZ$ = "REMEMBER THIS FOR ME" 

Z = F + F 



RULES ON VARIABLES 

You may use any two characters from A to Z for a variable. The first 
character must be a letter from A to Z; however, the second may be 
either a numeral or a letter. If you want to assign it string data, put a 
dollar sign after it. Otherwise, it can hold only numeric data. 



Learned in Chapter 2 

CONCEPTS 

Variables 
String v Numeric Variables 



Now that you've learned how the computer thinks, it will be easy to write 
some programs. How about a break, though, before going to the next 
chapter? 
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Notes 
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CHAPTER 3 

SEE HOW EASY IT IS? 

Type: 



NEW (INTER) 

This erases whatever may be in the computer's "memory." 

Now type this line. Be sure you type the number 10 first — that's important. 



10 PRINT "HI i I 'M YOUR COLOR COMPUTER" (ENTER) 

Did you press (ENTER) ? Nothing happened, did it? Nothing you can see, that 
is. You just typed your first program. Type: 



RUN (INTER) 

The computer obediently runs your program. Type RUN again and again 
to your heart's content. The computer runs your program any time you 
wish, as many times as you wish. 




& & £ - 



Since this works so well, add another line to the program. Type: 



20 PRINT "WHAT IS YOUR NAME?" (INTER) 
Now type: 



LIST (INTER) 

Your computer obediently lists your entire program. Your screen should 
look exactly like this: 

10 PRINT "HI , I 'M YOUR COLOR COM 

PUTER" 

20 PRINT "WHAT IS YOUR NAME?" 

What do you think will happen when you run this? Try it. Type: 



RUN (INTER) 

The computer prints: 

HI , I 'M YOUR COLOR COMPUTER 
WHAT IS YOUR NAME? 
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Answer the computer's question and then press (ENTER) . . . . What? There's 
the ?SN Error again. 

When you simply type your name, the computer doesn't understand what 
you mean. In fact, the computer can't understand anything unless you talk 
to it in its own way. 

Use a word the computer understands: INPUT. Type this line: 



30 INPUT A$ (ENTER) 

This tells the computer to stop and wait for you to type something, which it 
labels as A$. Add one more line to the program: 



If you make a mistake after 
pressing (ENTER), simply 
type the line over again. 



40 PRINT "HI f" A$ (ENTER") 
Now list the program again to see if yours looks like mine. Type: 



LIST (ENTER) 

Your program should look like this: 

10 PRINT "HI f I 'M YOUR COLOR COM 

PUTER" 

20 PRINT "WHAT IS YOUR NAME?" 

30 INPUT A$ 

40 PRINT "HI f " A$ 

Can you guess what will happen when you run it? Try it: 



RUN (ENTER") 

That worked well, didn't it? This is probably what happened when you ran 
the program (depending on what you typed as your name): 

HI. I'M YOUR COLOR COMPUTER 
WHAT IS YOUR NAME? 
? JANE 
HI f JANE 

RUN the program again using different names: 

HI. I'M YOUR COLOR COMPUTER 
WHAT IS YOUR NAME? 
? HUGO 
HI f HUGO 

HI f I 'M YOUR COLOR COMPUTER 
WHAT IS YOUR NAME? 
? 772-36-8228 
HI f 722-36-8228 

HI. I'M YOUR COLOR COMPUTER 
WHAT IS YOUR NAME? 
? NONE OF YOUR BUSINESS 
HI . NONE OF YOUR BUSINESS 

HI . I 'M YOUR COLOR COMPUTER 
WHAT IS YOUR NAME? 
? I GET IT! ! 
HI . I GET IT! ! 

(The computer doesn't care what you call yourself.) 

Here's what Line 30 did to your computer's memory each time you ran the 
program (assuming you gave it the same names we did): 
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There's an easier way to run your program over and over without having to 
type the RUN command. Type this line: 

50 GOTO 10 



ooooooooooo 
ooooooooooo 



Now run it. The program runs over and over again without stopping. 
GOTO tells the computer to go back to Line 10: 

10 PRINT "HI t I 'M YOUR COLOR COMPUTER" 

20 PRINT "WHAT IS YOUR NAME?" 

30 INPUT A$ 

40 PRINT "HI ," A$ 

50 GOTO 10 

Your program now runs perpetually. Each time it gets to Line 50, it goes 
back to Line 10. We call this a "loop." The only way you can stop this 
endless loop is by pressing the (BREAK) key. 



Spotlight Your Name 



To delete a 


program 


'ine, 


simply type 


and (ENTER) 


the line 


number. 


For 


example: 






50 (INTER) 






erases line 


50 from 


the 


program. 







We're leaving out the "HI,' 
part this time. 



Change Line 50 to give your name the attention it deserves. How do you 
change a program line? Simply type it again, using the same line number. 
Type: 

50 GOTO 40 

This is what the program looks like now: 

10 PRINT "HI , I 'M YOUR COLOR COMPUTER" 

20 PRINT "WHAT IS YOUR NAME?" 

30 INPUT A$ 

J 40 PRINT "HI t" A$ 

1 50 GOTO 40 

Type RUN and watch what this loop does. When you've seen enough, 
press the (BREAK) key. 

There's a big change you can make simply by adding a comma or a 
semicolon. Try the comma first. Type Line 40 again, but with a comma at 
the end: 

40 PRINT A$> 

Run the program. The comma seems to print everything in two columns. 

Press (BREAK) and try the semicolon. Type: 
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40 PRINT A$! 

and run . . . Yo u prob ably won't be able to tell what the program's doing 
until you press (BREAK) . See how the semicolon crams everything together? 



Remember, if you make a 
mistake on one of the lines, 
simply type the line over 
again. 



RULES ON PRINT PUNCTUATION 

This is what punctuation at the end of a PRINT line makes the 
computer do: 

1 . A comma makes the computer go to the next column. Use it to print 
in columns. 

2. A semicolon makes the computer stay where it is. Use it to "cram" 
what you print together. 

3. No punctuation makes the computer go to the next line. Use it to 
print in rows. 



Color/Sound Demonstration 

Want to play with color and sound some more? First, erase memory. 
Remember how? 

Then enter this program: 

10 PRINT "TO MAKE ME CHANGE MY TONE" 

20 PRINT "TYPE IN A NUMBER FROM 1 TO 255" 

30 INPUT T 

40 SOUND T» 50 

50 GOTO 10 

Run through the program to get a sample of the computer's tones. 

BUG: If you get a ?FC Error when you run this program, you used a number 
other than 1 through 255. This error, like all errors, will make the computer 
stop running the program. 

What happens if you change Line 40 to: 

40 SOUND 50 , T 

HINT: Look back in Chapter 1 where we talk about SOUND. 



NEW (HUB . . . wish 
mine worked that easily! 



In this program we're using 
T as a variable. However, 
we could use any letter. 



Notice that line 30 asks for 
J rather than T$. This is 
because we want numeric 
data rather than string data. 



t^ 



Know the answer? If you make the above change, the computer hums 
the same tone each time, but for a different length of time, depending 
on what number you use. 



DO-IT-YOURSELF PROGRAM 

Press (BREAK) first and then erase this program by typing NEW. Now see 
if you can write a program, similar to the one above, to make the 
computer show a certain color. Remember, there are 9 colors, 
through 8. 



HINT: Line 40 could be: 40 CLS(T). 
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This is our program: 



Press (BREAK) before typing 
the line. 



Don't worry about IF/THEN 
right now. We devote a 
whole chapter to it later. 



^ 



10 
20 
30 
40 
50 



PRINT "TO MAKE ME CHANGE MY COLOR" 
PRINT "TYPE A NUMBER BETWEEN AND 8' 
INPUT T 
CLS(T) 
GOTO 10 

Add Polish to the Program 



Pressing the (BREAK) key is a sloppy way to stop the program from running. 
Why not have the computer politely ask if you're ready to end? Change 
Line 50 in the above program to: 

50 PRINT "DO YOU WANT TO SEE ANOTHER COLOR?" 

Then add these lines: 



G0 INPUT R$ 
70 IF R$ = ") 



'ES" THEN 20 



Run the program. Type YES and the program keeps running. Type anything 
else and the program ends. 

T his is what the program looks like now: 



10 
^20 
30 
40 
50 
G0 
70 



PRINT "TO MAKE ME CHANGE COLORS" 

PRINT "TYPE A NUMBER BETWEEN AND 8" 

INPUT T 

CLS(T) 

PRINT "DO YOU WANT TO SEE ANOTHER COLOR" 

INPUT R$ 



IF R$ 



'ES" THEN 20 



This is what the new lines do: 

Line 50 prints a question. 

Line 60 tells the computer to stop and wait for an answer: R$. 

Line 70 tells the computer to go back to Line 20 IF (and only if) 
your answer (R$) is "yes." If not, the program ends, since it has 
no more lines. 

You've covered a lot of ground in this chapter. Hope we're just whetting 
your appetite for more. 

Don't worry if you don't yet understand it perfectly. Just enjoy using your 
computer. 



Learned in Chapter 3 



BASIC WORDS 


CONCEPT 


Characters 


How to Change and Delete a 


NEW 


Program Line 


INPUT 




GOTO 




RUN 




PRINT, 




PRINT; 




LIST 




IF/THEN 





KEYBOARD 

(EH) 
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Notes 
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CHAPTER 4 



COUNT THE BEAT 



The logic of this will become 
clear later. 




K 




f r—J 




t V 


Remember to type NEW 
(ENTER) before typing a new 
program. 



In this chapter you'll experiment with computer sound effects. Before 
doing this, you need to teach the computer to count. 

Type: 

10 FOR X = 1 TO 10 

20 PRINT "X = " X 

30 NEXT X 

40 PRINT "I HAVE FINISHED COUNTING" 

Run the program. 





Run the program a few more times. Each time, replace Line 1 with one of 
these lines: 

10 FOR X = 1 TO 100 

10 FOR X = 5 TO 15 

10 FOR X = -2 TO 2 

10 FOR X = 20 TO 24 

Do you see what FOR and NEXT make the computer do? They make it 
count. Look at the last program we suggested you try: 

10 FOR X = 20 TO 24 

20 PRINT "X = " X 

30 NEXT X 

40 PRINT "I HAVE FINISHED COUNTING" 

Line 10 tells the computer the first number should be 20 and the last 
number should be 24. It uses X to label all these numbers. 

Line 30 tells the computer to keep going back to Line 10 for the next 
number — the NEXT X — until it reaches the last number (number 24). 
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Look at Line 20. Since Line 20 is between the FOR and NEXT lines, the 
computer must print the value of X each time it counts: 

X = 20 

X = 21 
X = 22 
X = 23 
X = 24 

Add another line between FOR and NEXT: 

15 PRINT "... COUNTING ..." 

and run the program. With each count, your computer runs any lines you 
choose to insert between FOR and NEXT. 



DO-IT-YOURSELF PROGRAM 4-1 
Write a program that makes the computer print your name 10 times. 

HINT: The program must count to 10. 

DO-IT-YOURSELF PROGRAM 4-2 

Write a program to print the multiplication tables for 9 (9*1 through 
9*10). 

HINT: PRINT 9*X is a perfectly legitimate program line. 

DO-IT-YOURSELF PROGRAM 4-3 

Write a program that prints the multiplication tables for 9*1 through 
9*25. 8 



HINT: By adding a comma in the PRINT line, you can get all the 
problems and results on your screen at once. 



Finished? These are our programs: 



Program 4-1 

10 FOR X = 1 TO 10 
20 PRINT "THOMAS' 
30 NEXT X 



Program 4-2 

10 FOR X = 1 TO 10 

20 PRINT "9*"X"="9*X 

30 NEXT X 



Program 4-3 

10 FOR X = 1 TO 25 

20 PRINT "9*"X" = "9*X , 

30 NEXT X 



31 



Counting by Twos 



Now make the computer count somewhat differently. Erase your program 
by typing NEW and then type the original program, using a new Line 1 0: 

10 FOR X = 2 TO 10 STEP 2 

20 PRINT ">•<= " X 

30 NEXT X 

40 PRINT "I HAVE FINISHED COUNTING" 




Vou may be wondering 
about the programs you ran 
at the first of this chapter 
without using STEP. If you 
omit STEP, the computer 
assumes you mean STEP 1 . 



Run the program. Do you see what the STEP 2 does? It makes the computer 
count by 2s. Line 10 tells the computer that: 

The first X is 2 

The last X is 10 

.. .AND STEP 2 .. . 

All the Xs between 2 and Ware two apart . . . that is 2, 4, 6, 8, and 10. 
(STEP 2 tells the computer to add two to get each NEXT X.) 

To make the computer count by 3s, make all the Xs three apart. Try this for 
Line 10: 

10 FOR X = 3 TO 10 STEP 3 

Run the program. This prints on your screen: 

= 3 

= e 

= 9 

It passes up the last X (number 10) because 9 + 3 = 12. Try a few more 
FOR . . . STEP lines so you can see more clearly how this works: 



10 FOR X 
10 FOR X 
10 FOR X 



5 TO 50 STEP 5 
10 TO 1 STEP-1 
1 TO 20 STEP a 



Counting the Sounds 



Now that you've taught the computer to count, you can add some sound. 
Erase your old program and type this: 
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10 FOR X = 1 TO 255 , 

20 PRINT "TONE " X ( 

30 SOUND X, 1 

'* 40 NEXT X 

This program makes the computer count from 1 to 255 (by 1 s). Each time it 
counts a new number, it does what Lines 20 and 30 tell it to do: 

Line 20 — It prints X, the current count. 

Line 30 — It sounds X's tone. 

For example: 

The first time the computer gets to FOR, in Line 1 0, it makes X equal 
to 1. 

Then it goes to Line 20 and prints 1 , the value of X. 

Then Line 30 has it sound tone #1 . 

Then it goes back to Line 10 and makes X equal to 2 

Etc. 
What do you think the computer will do if you make this change to Line 10: 

10 FOR X = 255 TO 1 STEP -1 

Did you try it? 



Don't type the arrow, of 
course. It's there to help you 
understand. 



PROGRAMMING EXERCISE 

Using STEP, change Line 10 so the computer will sound tones 
from: 

(1) The bottom of its range to the top, humming every tenth note. 

(2) The top of its range to the bottom, humming every tenth note. 

(3) The middle of its range to the top, humming every fifth note. 

10 — 

10 — 

10 — 



Ready for the answers? 



10 FOR X 
10 F0RX 
10 FOR X 



1 TO 255 STEP 10 
255 TO 1 STEP -10 
128 TO 255 STEP 5 



Try this: To pause the pro- 
gram while it's running, 
press the (SHIFT) and @ keys 
at the same time. Then press 
any key to continue. 



DO-IT-YOURSELF PROGRAM 4-4 
Now see if you can write a program that makes the computer hum: 

(1 ) from the bottom of its range to the top, and then 

(2) from the top of its range back to the bottom 



The answer is in the back of this book. 
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But Can It Sing? 

Yes. In Section II, you'll learn how to compose your favorite songs. 

Learned in Chapter 4 

BASIC WORDS KEYBOARD CHARACTER 

FOR . . . TO . . . STEP (SHEDdD 

NEXT 



Notes 
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CHAPTER 5 

Watch the Clock 

You're now ready to show your computer how to tell time. Type: 

10 FOR Z = 1 TO 4G0 * 2 

20 NEXT Z 

30 PRINT "I COUNTED TO 920" 

Run the program. Be patient and wait a couple of seconds. Two seconds, to 
be precise. It takes your computer two seconds to count to 920. 

Lines 10 and 20 set a timer pause in your program. By making the 
computer count to 920, you keep the computer busy for two seconds. 




As you can see, this is groundwork for a stopwatch. Erase the program and 
type: 

10 PRINT "HOW MANY SECONDS?" 

20 INPUTS 

30 FOR Z = 1 TO 4G0*S 

40 NEXT Z 

50 PRINT S " SECONDS ARE UP! ! ! " 

Run it. Input the number of seconds you want timed on your stopwatch. 

DO-IT-YOURSELF PROGRAM 5-1 

It would help if the stopwatch could sound some kind of alarm. Add 
! lines to the end of the program to give it an alarm. 
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Here's the program we wrote: 



This is how computerized 
timers work. 



10 


PRINT "HOW MANY SECONDS" 


20 


INPUT S 


30 


FOR Z = 1 TO 4B0 * S 


40 


NEXT Z 


50 


PRINT S " SECONDS ARE UP! 


60 


FOR T = 120 TO 180 


70 


SOUND T t 1 


80 


NEXT T 


90 


FOR T = 150 TO 140 STEP -1 


100 


SOUND T t 1 


110 


NEXT T 


120 


GOTO 50 



Notice the GOTO line at the end of the program. It causes the message to 
keep p rinting and the alarm to keep ringing until you press [BREAK) or 

fSflim rm 

Counting Within the Time 

Before doing more with the clock, have the computer keep count within 
the time. This concept will become clear to you shortly. 




r^L 



Notice the comma in Line 
40. Try it without the com- 
ma. The comma makes "Y 
- " V print on the next 
column. 



Type this new program: 

10 FOR X = 1 TO 3 
20 PRINT "X = " X 
30 FOR Y = 1 TO 2 
40 PRINT* "Y=" Y 
50 NEXT Y 
B0 NEXT X 

Run it. This should be on your screen: 

X = 1 



X 



Y 
Y 

Y 
Y 



1 
2 

1 
2 



Y 
Y 



1 
2 
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Call it a count within a count or a loop within a loop— whatever you prefer. 
Programmers call this a "nested loop." This is what the program does: 

I. It counts X from 1 to 3. Each time it counts X: 

A. It prints the value of X 

B. It counts Y from 1 to 2. Each time it counts Y: 
1. It prints the value of Y 

Whenever you put a loop inside another loop, you must close the inner 
loop before closing the outer loop: 

Right Wrong 

10 FOR X = 1 TO 3 ftlQ FOR X = 1 TO 3 

20 FOR Y = 1 TO 2 20 FOR Y = 1 TO 2 

30 NEXT Y ; 30 NEXT X 

40 NEXT X 40 NEXT Y 

Making a Clock 

With these tools, you can make the computer do much more. Type this: 

10 FOR S = TO 59 

20 PRINT S 

30 SOUND 150 t 2 

40 FOR T = 1 TO 390 

50 NEXT T 

" 60 NEXT S 

70 PRINT "1 MINUTE IS UP" 




32: 



Run the program. This is what it does: 

I. It counts the seconds from to 59. Each time it counts one second: 

A. It prints the second. 

B. It sounds a tone. 

C. It pauses long enough for one second to pass. 

II. When it finishes counting all the seconds from to 59, it prints a 
message that one minute is up. 
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There's a way to make this program look better. Add this line to clear the 
screen: 

15 CLS 

Now run the program. This time the computer goes through these steps: 

I. It counts the seconds from to 59 (Lines 10 and 60). Each time it 
counts one second: 

A. It clears the screen (Line 15). 

B. It prints the second (Line 20). 

C. It sounds a tone (Line 30). 

D. It pauses long enough for one second to pass (Lines 40 and 50). 

II. When it finishes counting all the seconds from to 59, it prints a 
message that one minute has passed (Line 70). 

Using this as groundwork, it's easy to make a full-fledged clock: 

10 FOR H = TO 23 

20 FOR M = TO 59 

30 FOR S = TO 59 

40 CLS 

50 PRINT H" : "M" : "S 

60 SOUND 150* 2 

70 FOR T = 1 TO 375 

90 NEXT T 

90 NEXT S 

100 NEXT M 

110 NEXT H 



By adding this line, 120 
GOTO W, the clock will run 
perpetually. 



Having a tough time with 
this program? Skip it for 
now. It'll seem easy later. 



Here's an outline of what the computer does in this program: 

I. It counts the hours from to 23 (Line 10). Each time it counts a new 
hour: 

A. It counts the minutes from to 59 (Line 20). Each time it counts a 
new minute: 

1 . It counts the seconds from to 59 (Lines 30 and 90). Each 
time it counts a new second: 

a. It clears the screen (Line 40). 

b. It prints the hour, minute, and second (Line 50). 
c It sounds a tone (Line 60). 

d. It pauses long enough for one second to pass (Lines 70 
and 80). 

2. When it finishes counting all the 59 seconds, it goes back to 
Line 20 for the next minute (Line 100). 

B. When it finishes counting all the 59 minutes, it goes back to Line 
10 for the next hour (Line 110). 

II. When it finishes counting all the hours (0-23), the program ends. 
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DO-IT-YOURSELF PROGRAM 5-2 

Between Lines 90 and 100 you can add some tones that will sound 
each minute. Write a program that does this. 



DO-IT-YOURSELF PROGRAM 5-3 

Write a program that makes your computer show each of its nine 
colors for 1 second each. 



The answers to both programs are in the back. 



Learned in Chapter 5 

BASIC WORD PROGRAMMING CONCEPT 

CLS Nested Loops 



Notes 
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CHAPTER 6 



DECISIONS, DECISIONS . . 



^ 



Don't be confused by the 
arrows or the spaces be- 
tween program lines. We 
just put them in to illustrate 
the flow of the program. 



Here's an easy decision for the computer: 

If you type "red" . . . then make the screen red 

... or 

If you type "blue" . . . then make the screen blue 

Easy enough? Then have the computer do it. Type this program: 

10 PRINT "DO YOU WANT THE SCREEN RED OR BLUE?" 
20 INPUT C$ 

30 IF C$ = "RED" THEN 100 

40 IF C$ = "BLUE" THEN 200 

100 CLS(4) 
110 END 

200 CLS(3) 




Run the program a few times. Try both "red" and "blue" as answers. 
This is what the program does: 
If you answer "red" . . . then . . . 

1. Line 30 sends the computer to Line 100. 

2. Line 100 turns your screen red. 

3. Line 1 1 ends the program. (If the computer gets to Line 1 1 0, it never 
makes it to 200.) 

... On the other hand . . . 

If you answer "blue" . . . then . . . 

1 . Line 40 sends the computer to Line 200. 

2. Line 200 turns your screen blue. 

3. Since Line 200 is the last line in the program, the program ends there. 
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What happens if you answer with something different from "red" or 
"blue"? Run the program again. This time, answer "green." 

This makes the screen red. Do you know why? 

HINT: If the condition is not true, the computer ignores the THEN part 
of the line and proceeds to the next program line. 



PROGRAMMING EXERCISE 

There's a way to get this program to reject any answer but "red" or 

"blue." These are the two lines to add. You figure out where they go in 

the program: 

.... PRINT "YOU MUST TYPE EITHER RED OR BLUE" 

.... GOTO 20 



Insert the line numbers. 

HINT: The lines must come after the computer has had a chance to test 
your answer for "red" or "blue." 

HINT: The lines must come before the computer makes your screen 
"red." 

Answer: The lines need to come after Line 40 and before Line 100: 

50 PRINT "YOU MUST TYPE EITHER RED OR BLUE" 
60 GOTO 20 



DO-IT-YOURSELF PROGRAM 6-1 

After the computer turns the screen red or blue, have it go back and ask 
you to type "red" or "blue" again. 

HINT: You need to change Line 110 and add Line 210. 
Here's a diagram of how we wrote this program. 

10 PRINT "DO YOU WANT THE SCREEN RED OR BLUE' 
20 INPUT C$ 

30 IF C$ = "RED" THEN 100 

40 IF C$ = "BLUE" THEN 200 

50 PRINT "YOU MUST TYPE EITHER RED OR BLUE" 

B0 GOTO 20 

100 CLS(4) 
110 GOTO 10 

200 CLS(3) 
210 GOTO 10 



Trace the path the computer takes through this program. Go from one line 
to the next; follow the arrows where indicated. Notice the difference 
between the arrows going from the IF/THEN and the GOTO lines. 
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RULES ON IF/THEN AND GOTO 

IF/THEN is conditional. The computer "branches" only if the condi- 
tion is true. 

GOTO is unconditional. The computer always branches. 



Although this chapter is short, you've learned an important programming 
concept. You'll have the computer make decisions all through this book. 



Learned in Chapter 6 

BASIC WORDS 

IF/THEN 
END 



Notes 
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CHAPTER 7 



GAMES OF CHANCE 



Thanks to a BASIC word called RND, the computer can play almost any 
game of chance. 

And even if you don't want to play computer games, you'll want to learn 
two words this chapter introduces: RND and PRINT @. You'll also find in 
this chapter some more uses of IF/THEN. 

Type this program: 

10 PRINT RND( 10) 
Run it. The computer just picked a random number from 1 to 10. Run it 
some more times . . . 

It's as if the computer is drawing a number from 1 to 10 out of a hat. The 
number it picks is unpredictable. 




Type and run this next program. Press (BREAK) when you satisfy yourself 
that the numbers are random. 

10 PRINT RND( 10) 5 
20 GOTO 10 

To get random numbers from 1 to 100, change Line 10 and run the 
program. 

10 PRINT RND( 100) 5 

How can you change the program to get random numbers from 1 to 255? 

The answer is: 

10 PRINT RN0(255) i 



To make the computer 
pause while runni ng [the 
program, press the (SHIFT ) 
and ® keys at the same 
time. Press any key to 



continue. 
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A Random Show 

Just for fun, have the computer compose a song made up of random tones. 
Type: 

10 T = RND(255) 
20 SOUND T » 1 
30 GOTO 10 
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Run it. Great music, eh? Press (BREAK) when you've heard enough. 



Sneak preview: Enjoying 
graphics and sound? Co 
ahead and try out some 
programs in Section II, 
"Sights and Sounds." 



DO-IT-YOURSELF PROGRAM 7-1 

Add some lines to make the computer show a random color (1-8) just 
before it sounds each random tone. 



Here's our program: 



10 


T = RND(255) 


14 


C = RND(8) 


1G 


CLS(C) 


20 


SDUND T , 1 


30 


GOTD 10 



We have a few simple games in this chapter. Feel free to use your imagina- 
tion to add interest to them — or invent your own. 



Reme mber always to type 
NEW (HUH) before entering 
a new program. 



Russian Roulette 

In this game, a gun has 10 chambers. The computer picks, at random, 
which of the 10 chambers has the fatal bullet. Type: 

10 PRINT "CHDOSE YOUR CHAMBER( 1-10) " 

20 INPUT X 

30 IF X = RND( 10) THEN 100 

40 SOUND 200 , 1 

50 PRINT "--CLICK--" 

60 GDTO 10 

100 PRINT "BANG--YDU'RE DEAD" 

First, in Line 20, the player inputs X (a number from 1 to 10). Then, the 
computer compares X with RND(10) (a random number from 1 to 10). 

Then it follows the "arrows": 

IfX is equal to RND(10), the computer goes to Line 100, the "dead 
routine." 



Remember how to list part of 
a program? LI ST 50-130 
lists the program's middle 
part. 



Try this when listing a long 
program: At the sta rt of the 
listing, press dHIED and QD. 
This causes the listing to 
pause. Then press any key to 
continue. 



IfX is not equal to RND(10), the computer "clicks" and goes back to 
Line 10, where you get another chance . . . 

Make the dead routine in Line 100 better. Type: 

100 FDR T = 133 TO 1 STEP -5 

110 PRINT " BANG MM!" 

120 SOUND T , 1 

130 NEXT T 

140 CLS 

150 PRINT @ 230 > "SORRY > YOU'RE DEAD" 

160 SOUND 1 > 50 

170 PRINT @ 390 , "NEXT MICTIM , PLEASE" 

Run the program. Here's what the routine does: 

Lines 100-130 make the computer sound descending tones and print 
BANG!!!!! over and over again on the screen. 
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Line 1 40 clears the screen. Since no color is given, the computer makes the 
screen green. 

Lines 1 50 and 1 70 use a new word— PRINT @— to position two messages 
on your screen: SORRY, YOU'RE DEAD and NEXT VICTIM, PLEASE. 

The grid below shows the 51 1 positions on your screen. Line 1 50 prints 
SORRY, YOU'RE DEAD at position 230 (224 + 6). Line 1 70 prints NEXT 
VICTIM, PLEASE at position 390 (384 + 6). 
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The grid is in the Appendix, 
"PRINT @ Screen Loca- 
tions," Use it to plan your 
programs' screen formats. 



DO-IT-YOURSELF PROGRAM 7-2 

Change this program so that if the player does manage to stay alive for 
10 clicks, the computer pronounces the player the winner, printing 
this message on the screen: 
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HINT: You can use the FOR/NEXT loop, so that the computer can keep, 
count of the number of clicks. 



Our answer is in the Appendix. 



Rolling the Dice 

This game has the computer roll two dice. To do this, it must come up with 
two random numbers. Type: 
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10 CLS 

20 X = RND(S) 

30 Y = RND(S) 

40 R = X + Y 

50 PRINT @ 200 , X 

B0 PRINT @ 214 t Y 

70 PRINT @ 394 t "YOU ROLLED A" R 

80 PRINT @ 454 , "DO YOU WANT ANOTHER ROLL'" 

90 INPUT A* 

100 IF A$ = "YES" THEN 10 

Run the program. 

Line 10 clears the screen. 

Line 20 picks a random number from 1 to 6 for one die. Line 30 picks a 
random number for the other die. 

Line 40 adds the two dice to get the total roll. 

Lines 50-70 print the results of the roll. 

Line 90 lets you input whether you want another roll. If you answer "yes," 
the program goes to Line 1 and runs again. Otherwise, since this is the last 
line in the program, the program ends. 



DO-IT-YOURSELF PROGRAM 7-3 

Since you know how to roll dice, it should be easy to write a "Craps" 
program. These are the rules of the game (in its simplest form): 

1 . The player rolls two dice. If the first roll's a 2 ("snake eyes"), a 3 
("cock-eyes"), or a 1 2 ("boxcars"), the player loses and the game's 
over. 

2. If the first roll's a 7 or 11 ("a natural"), the player wins and the 
game's over. 

3. If the first roll's any other number, it becomes the player's "point." 
The player must keep rolling until either "making the point" by 
getting the same number again to win, or rolling a 7, and losing. 

You already know more than enough to write this program. Do it. 
Make the computer print it in an attractive format on your screen and 
keep the player informed about what is happening. It may take you a 
while to finish, but give it your best. Good luck! 



Our answer's in the back. 

Learned in Chapter 7 

BASIC WORDS 

RND 
PRINT @ 



Notes 
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CHAPTER 8 



READING 



Your computer is a natural at teaching. It's patient, tireless, and never 
makes a mistake. Depending on the programmer (you, of course), it also 
can be imaginative, consoling, and enthusiastic. 

Using RND, have it teach you math. Type: 



U0 

20 
30 
40 
45 
50 

B0 
70 
80 

90 

400 

105 
110 



CLS 

X = RND( 15) 

Y = RND( 15) 

PRINT "WHAT IS" X " 

INPUT A 

IF A = X * Y THEN 90 

PRINT "THE ANSWER IS" X*Y 
PRINT "BETTER LUCK NEXT TIME' 
GOTO 100 



PRINT "CORRECT! ! ! " 

PRINT "PRESS <ENTER> WHEN READY FOR 
ANOTHER" 
INPUT A$ 
GOTO 10 



Are your programs getting 
long? If you have a cassette 
recorder, read your comput- 
er's introduction manual to 
learn how to save your pro- 
grams on tape. If you have 
a Deluxe Color Computer, 
you can also save programs 
in memory. See your intro- 
duction manual to learn 
how. 



The above program drills you on the multiplication tables, from 1 to 15, 
and checks your answers. 



Aq Bfe Cc Dd Ee gf 69 HV> I\ Jj kfc LI Mw NwOo 




DO-IT-YOURSELF PROGRAM 8-1 
Make the program drill you on addition problems from 1 to 100. 
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When you first turn on the 
computer, all numeric vari- 
ables equal 0. When you 
type NEW (ERTEff), all 
numeric variables also 
equal 0. 



^) 



Here are the lines we changed: 

20 X = RNDU00) 

30 Y = RND< 100) 

40 PRINT "WHAT IS" X " + " 

45 INPUT A 

50 IF A = X + Y THEN 90 

G0 PRINT "THE ANSWER IS 1 



X + Y 



Make the program more interesting. Have it keep a running total of all the 
correct answers. Type: 

15 T = T + 1 
95 C = C + 1 

98 PRINT "THAT IS" C "CORRECT OUT OF" T 
"ANSWERS" 

T is a "counter." It counts how many questions you're asked. When you 
first start the program, T equals zero. Then each time the computer gets to 
Line 15, it adds 1 to T. 

C is also a counter. It counts your correct answers. Since C's in Line 95, the 
computer doesn't increase C unless your answer's correct. 



DO-IT-YOURSELF PROGRAM 8-2 
Make the program more fun. Have it do one or more of the following: 

1. Call you by name. 

2. Reward your correct answer with a sound and light show. 

3. Print the problem and messages attractively on your screen (Use 
PRINT @ for this.) 

4. Keep a running total of the percentage of correct answers. 

5. End the program if you get 10 answers in a row correct. 

Use your imagination. We have a program in back that does this all. 



First, Build Your Computer's 
Vocabulary . . . 

To build your computer's vocabulary (so that it can build yours!), type and 
run this program: 

10 DATA APPLES , ORANGES , PEARS 

20 FOR X = 1 TO 3 

30 READ F$ 

40 NEXT X 

What happened . . . nothing? Nothing that you can see, that is. To see what 
the computer is doing, add this line and run the program: 

35 PRINT "F$ = : " F$ 

Line 30 tells the computer to: 

1. Look for a DATA line. 

2. READ the first item in the list— APPLES. 
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3. Give APPLES an F$ label. 

4. "Cross out" APPLES. 

The second time the computer gets to Line 30 it is told to do the same: 

1. Look for a DATA line. 

2. READ the first item— this time, it's ORANGES. 

3. Give ORANGES the F$ label. 

4. "Cross out" ORANGES. 



When you run the program, this happens in the computer's memory: 




What if you want the computer to read the same list again? It's already 
"crossed out" all the data . . . Type: 

B0 GOTO 10 

Run the program. You get an error: ?OD ERROR IN 30. OD means "out of 
data." The computer's crossed out all the data. 

Type this line and run the program: 

50 RESTORE 

Now it's as if the computer never crossed out any data. It reads the same I ist 
again and again. 

You can put DATA lines wherever you want in the program. Run each of 
these programs. They all work the same. 



Remember how to make the 
computer pause while run- 
ning a program? Press 
(SHIFT ) dD to pause and any 
key to get it to continue. 



10 


DATA APPLES 




10 


DATA APPLES* 


ORANGES 


20 


DATA ORANGES 




20 


DATA PEARS 




30 


FOR X = 1 TO 3 




30 


FOR X = 1 TO 3 




40 


READ F$ 




40 


READ F$ 




50 


PRINT "F$ = : " 


F$ 


50 


PRINT "F$ = : 


" F$ 


B0 


NEXT X 




B0 


NEXT X 




70 


DATA PEARS 










30 


FOR X = 1 TO 3 




30 


FOR X = 1 TO 3 




40 


READ F$ 




40 


READ F$ 




50 


PRINT "F$ = : " 


F$ 


50 


PRINT "F$ = : 


" F$ 


(30 


NEXT X 




l G0 


NEXT X 




70 


DATA APPLES 




70 


DATA APPLES 


ORANGES , 


80 


DATA ORANGES 






PEARS 




90 


DATA PEARS 
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Now Have It Build Your Vocabulary 



Here are some words and definitions to learn: 



Words 



Definitions 



10 
20 
30 
40 
50 



DATA TACITURN > HABITUALLY UNTALKATIVE 
DATA LOQUACIOUS, VERY TALKATIVE 
DATA VOCIFEROUS > LOUD AND VEHEMENT 
DATA TERSE > CONCISE 
DATA EFFUSIVE , DEMONSTRATIVE OR GUSHY 



Now get the computer to select one of these words at random. Hmmm . . . 
there are ten items. Maybe this works: 

60 N = RND( 10) 

70 FOR X = 1 TO N 

I 80 READ A$ 

90 NEXT X 

100 PRINT "THE RANDOM WORD IS: " A$ 

Run the program a few times. It doesn't work quite right. The computer's 
just as likely to stop at a definition as at a word. 




What the computer really needs to do is pick a random word only from 
items 1, 3, 5, 7, or 9. Fortunately, BASIC has a word that helps with this. 
Type: 

65 IF INT(N/2) = N/2 THEN N = N - 1 



Now run the program a few times again. This time, it should work. 

INT tells the computer to look at only the "whole part" of the number and 
ignore the decimal part. For instance, the computer sees INT(3.9) as 3. 

Assume N, the random number, is 1 0. The IF clause in Line 65 does this: 

INT( 10/2) = 10/2 
INT(5) = 5 
5 = 5 

The above is true: 5 does equal 5. Since it's true, the computer completes 
the THEN clause. N is adjusted to equal 9 ( 10 - 1 ) . 

Now assume N, the random number, is 9. The IF clause in Line 65 does 
this: 

INTO/2) = 9/2 
INT(4,5) = 4.5 
4 = 4.5 
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The above is not true: 4 does not equal 4.5. Since it's not true, the computer 
doesn't complete the THEN clause. N remains 9. 

Besides reading a random word, the computer also must read the word's 
definition. Add these lines to the end of the program: 



110 READ B$ 

120 PRINT "THE DEFINITION IS 



B$ 



Now run the program a few times. 

Have the computer print one random word and definition after the next. 
Add this to the start of the program: 

5 CLEAR 100 

This reserves plenty of "string space." Add these lines to the end of the 
program: 



130 
140 



RESTORE 
GOTO B0 



This lets the computer pick a new random word and its definition from a 
"restored" group of data items. 

Here's how the program now looks: 

5 CLEAR 100 

10 DATA TACITURN , HABITUALLY UNTALKATIVE 

20 DATA LOQUACIOUS > VERY TALKATIVE 

30 DATA VOCIFEROUS , LOUD AND VEHEMENT 

40 DATA TERSE , CONCISE 

50 DATA EFFUSIVE , DEMONSTRATIVE DR GUSHY 

B0 N = RNDU0) 

B5 IF INT(N/2) = N/2 THEN N = N - 1 

70 FDR X = 1 TO N 

80 READ A$ 

90 NEXT X 

100 PRINT "A RANDOM WORD IS : " A$ 

110 READ B$ 

120 PRINT "ITS DEFINITION IS :" B$ 

130 RESTORE 

140 GOTO B0 



If you like, add some more 
words and definitions by 
adding DATA lines. 



For variations on this pro- 
gram, you might try states 
and capitals, cities and 
countries, foreign words and 
meanings. 



^ 



DO-IT-YOURSELF PROGRAM 8-3 
Want to complete this program? Program it so that the computer: 

1. Prints the definition only. 

2. Asks you for the word. 

3. Compares the word with the correct random word. 

4. Tells you if your answer is correct. If your answer is incorrect, prints 
the correct word. 
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Feel free to add frills such as 
a good-looking screen for- 
mat or sound. 



Here's our program: 

5 CLEAR 500 

10 DATA TACITURN , HABITUALLY UNTALKATIVE 

20 DATA LOQUACIOUS* VERY TALKATIVE 

30 DATA VOCIFEROUS > LOUD AND VEHEMENT 

40 DATA TERSE > CONCISE 

50 DATA EFFUSIVE > DEMONSTRATIVE OR GUSHY 

60 N = RNDU0) 

65 IF INTCN/2) = N/2 THEN N = N - 1 

70 FOR X = 1 TO N 

80 READ A$ 

90 NEXT X 

110 READ B$ 

120 PRINT "WHAT WORD MEANS :" B$ 

130 RESTORE 

140 INPUT R$ 

150 IF R$ = A$ THEN 190 

160 PRINT "WRONG" 

170 PRINT "THE CORRECT WORD IS :" A$ 

180 GOTO 60 

190 PRINT "CORRECT" 

200 GOTO 60 



Learned in Chapter 8 

BASIC WORDS 



DATA 

READ 

RESTORE 

INT 

CLEAR 



Notes 
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CHAPTER 9 



WRITING 



Up to now, you've probably been changing programs the long and boring 
way — by retyping them. If so, you'll be glad you've arrived at this chapter. 
You'll learn a new, easy way to change programs — by "editing" them. 

Don't Throw Away That Line . . . 
Edit It! 

(EDIT) 




Pretend you make a mistake typing a program. Line 50 somehow ends up: 

50 DABA EFFFUSIUE. GIMPY MUSHY 

You can change this line the hard way, by retyping it — or the easy way, by 
editing it. To get into Line 50's "edit mode," type: 



EDIT 50 (INTER) 

You see: 

50 DABA EFFFUSIME. GIMPY MUSHY 
50 

You're now in the edit mode. While in this mode, you can use any of the 
special "edit keys" to display or change Line 50. They're all listed later in 
this chapter (Table 9.1). 

Start by pressing CD, the edit key for "list." The CD key displays the entire 
line again and then puts you back at the start. 



If you have a Deluxe Color 
Computer, EDIT will not 
work for you. You have a 
better way of editing pro- 
gram lines — the (SB key. 
The (JED key is described in 
Introducing Your Deluxe 
Color Computer. 



MOVE ON DOWN THE LINE (CURSOR MOVEMENT) 



Press (SPACEBAR) a few times. This key moves you forward. To move 
backward, press ©. Note that while in the edit mode © merely back- 
spaces; it doesn't delete characters. 
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Move to the start of Line 50 and press GO (SPACEBAR) . This moves you five 
spaces forward — all at once. Do the same with ©. Press a number, such 
as GO, and © and move that many spaces backward. 

Move to the start of Line 50 and press GO (for "search") and then GO (the 
character for which you want to search). This moves you to the first E. 
Move back to the start and press GO GO GO- This moves you to the second 
E in Line 50. 



Once you enter the edit 
mode, you don't have to 
press (ENTER) after subcom- 
mands such as change, in- 
sert, list, and so on. 



CHANGE THE LINE (CHANGE) 

Make your first change to Line 50. Change DABA to DATA: 

Move to the "wrong" character — the B in DABA. 

Press GO for "change." 

Type the new character, in this case, T. 
To be sure the change is made, press GO and you see: 

50 DATA EFFFUSIVE* GIMPY MUSHY 

Now make the next change: Change GIMPY to GUSHY. This time you'll 
change three characters at a time: 

Move to the first wrong character — the I in GIMPY. 

Press GO GO for "change three characters." 

Type the three new characters — USH 

Line 50 is now: 

50 DATA EFFFUSIVE* GUSHY MUSHY 



If this were all you needed to do to Line 50, you could press (ENTER) and get 
out of the edit mode. As you can see, though, you have much more work to 
do. 




YOU'RE OUT! (DELETE) 

You need to delete a character — one of the F's in EFFFUSIVE: 
Move to the offensive character — the third F in EFFFUSIVE. 
Press GO for "delete." 
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And it's done. To confirm this, press CD again: 

50 DATA EFFUSIVE* GUSHY MUSHY 

You can delete more than one character at a time. For example, if you press 
(3D CD, you'll delete four characters at a time. 

SQUEEZE IT ALL IN (INSERT) 

You now need to insert some characters: GUSHY should be DEMON- 
STRATIVE OR GUSHY . 

Move to where you want to insert characters — the space before 
the G in Gushy. 

Press CD for "insert mode." 

Type your insert — DEMONSTRATIVE OR 

At this point, you're still in the insert mode. For example, if you press 
(SPACEBAR ), you'll insert a blank space; if you press CD, you'll insert an L. 
Therefore, you need to: 



When we say "characters," 
we mean "spaces" too. 



Press (SHIFT) m to get out of the insert mode. 

Now you can press CD to list the line: 

50 DATA EFFUSIVE* DEMONSTRATIVE OR GUSHY 
MUSHY 




HACKAMORE OR HACKALESS? (HACK) 

With "hack" you alter (halter?) a line by hacking the end of it and inserting 
new characters. Try hacking at Line 50: 

Move to the first character you want hacked off — the M in MUSHY. 

Press CD for hack. This hacks off the rest of the line and puts you in 
the insert mode. 

Type your insert — in this case, type CRUSTY. 

Press (SMFT) fT) to get out of the insert mode. 

If you list the line now (by pressing CD), you see: 

50 DATA EFFUSIVE* DEMONSTRATIVE OR GUSHY 
CRUSTY 



If you press CD to list the line 
while using insert, you'll in- 
sert the letter "I" into the 
program line instead of 
listing the line. 
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KILL THE . . . AH . . . MISTAKE (KILL) 

Kill is almost the opposite of hack. It "kills" everything up to the nth 
occurrence of a character. Suppose that, just for kicks, you want to kill the 
first half of Line 50 — everything up to the comma. Move to the start of Line 
50 and press these keys: 

(BCD 

If you list Line 50 now, you see: 

50 ^DEMONSTRATIVE OR GUSHY CRUSTY 




EXTENDED COLOR BASIC STRIKES AGAIN! (EXTEND) 

Perhaps you want to "extend" Line 50: 

Press CD for extend . The cursor moves to the end of and you enter the 
insert mode. 

Type your insert: AND MUSHY 

Press (SHIFT )(~D to get out of the insert mode. 

Line 50 is now: 

50 ^DEMONSTRATIVE OR GUSHY CRUSTY AND MUSHY 






i 

i 


Table 9.1/ Edit Keys 


j (n is a number. 

1 

1 Key 


If you omit n, BASIC uses 1.) 


Action 


!cd 


Lists the line and moves to the start 


| nOPlcharacters 


Changes the next n characters 


! 


to new characters. 


CD 


Inserts characters. 


fnCE 


Deletes n characters. 


iCD 


"Hacks'" the rest of the line and 


* 


puts you in the insert mode. 


{CD 

j nCSlcharacter 


Lets you extend the line 


Searches for the nth 


1 


occurrence of character. 


|CD 


Kills rest of line. 


I n(lC]character 


Kills (deletes) up to the nth 


1 


occurrence of character. 


I n(SPACEBAR) 


Moves n spaces forward. 


In© 


Moves n spaces backward. 
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Mass Delete 

(DELETE) 

Up to now, you've deleted lines the simple way, like this: 



50 (ENTER) 

This works fine for one or two lines, but what if you want to delete 50 or 60 
lines? You may find it easier to start over. 

Extended Color BASIC comes to the rescue again with an easy way to 
delete program lines — the DEL command. For instance, if you want to 
delete Lines 30-50, type: 



DEL 30-50 (ENTER) 



Your Number's Up! 

(REIMUM) 



So now you can change everything about a program line except the line 
number itself. Well, despair no more, because you can even do that with 
RENUM. 

To see how RENUM works, type this small program: 

10 PRINT "THIS IS THE FIRST LINE" 
20 PRINT "THIS IS THE SECOND LINE" 
30 PRINT "HERE'S ANOTHER LINE" 
40 GOTO 10 

Now renumber it. Type: 



RENUM 100 (ENTER) 

List the program and you see the new line numbers beginning with 100. 
Line 100 is what we call the newline: 

100 PRINT "THIS IS THE FIRST LINE" 
110 PRINT "THIS IS THE SECOND LINE" 
120 PRINT "HERE'S ANOTHER LINE" 
130 GOTO 100 

Notice that even the GOTO line number reference is renumbered. 

Renumber the program again with a newline of 200. Type: 



RENUM 200 ,120 (ENTER) 

Here, the newline is 200, but the renumbering starts with Line 120. Line 
120 is what we call the startline: 

100 PRINT "THIS IS THE FIRST LINE" 
110 PRINT "THIS IS THE SECOND LINE" 
200 PRINT "HERE'S ANOTHER LINE" 
210 GOTO 100 
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Renumber the program one more time giving it an increment of 50 be- 
tween each line: 



RENUM 300 > »50 (ENTER) 

Here the newline is 300. Since you omitted the startline, BASIC renumbers 
the entire program. The increment between the lines is 50: 

300 PRINT "THIS IS THE FIRST LINE" 
350 PRINT "THIS IS THE SEC0N0 LINE" 
400 PRINT "HERE'S ANOTHER LINE" 
450 GOTO 300 

Here is the "syntax" of the RENUM command: 



RENUM newline, startline, increment 

Renumbers a program. 

newline is the first new renumbered line. If you omit newline, 

BASIC uses 10. 
startline is where the renumbering starts. If you omit 

startline, BASIC renumbers the entire program. 
increment is the increment between each renumbered 

line. If you omit increment, BASIC uses 10. 

Note: RENUM does not rearrange the order of lines. 



Try some other variations of this command. Type: 

RENUM t »20 

This renumbers your entire program. The newline is 1 0, and the increment 
is 20: 

10 PRINT "THIS IS THE FIRST LINE" 
30 PRINT "THIS IS THE SEC0N0 LINE" 
50 PRINT "HERE'S ANOTHER LINE" 
70 GOTO 10 



Type RENUM 40,30, (ENTER) . Here, the newline is 40; the startline is 30; 
and the increment is 10: 

10 PRINT "THIS IS THE FIRST LINE" 
40 PRINT "THIS IS THE SECONO LINE" 
50 PRINT "HERE'S ANOTHER LINE" 
B0 GOTO 10 



Type RENUM 5,40 (ENTER) and you get a ?FC Error. This is because the 
result would move Line 40 ahead of Line 10. 



Learned in Chapter 9 

BASIC WORDS 

EDIT 

DEL 

RENUM 
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Notes 
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CHAPTER 10 



ARITHMETIC 



Solving long math problems fast and accurately is a task your computer 
does with ease. Before typing long, difficult formulas, though, there're 
some shortcuts you'll want to use. 

An easy way to handle complicated math formulas is with "subroutines." 
Type and run this program: 

10 PRINT "EXECUTING THE MAIN PROGRAM" 

20 GOSUB 500 

30 PRINT "NOW BACK IN THE MAIN PROGRAM" 

40 ENO 

500 PRINT "EXECUTING THE SUBROUTINE" 
510 RETURN 

Ax (BY + C) - D + E (G/W) - F 




GOSUB 500 tells the computer to go to the subroutine that starts at Line 
500. RETURN tells the computer to return to the BASIC word that im- 
mediately follows GOSUB. 

Delete Line 40 and see what happens when you run the program. 



If you did this, your screen shows: 

EXECUTING THE MAIN PROGRAM 
EXECUTING THE SUBROUTINE 
NOW BACK IN THE MAIN PROGRAM 
EXECUTING THE SUBROUTINE 
?RG ERROR IN 510 

RG means "RETURN without GOSUB." Do you see why deleting END in 
Line 40 causes this error? 

At first, the program runs just as it did before. It goes to the subroutine in 
Line 500 and then returns to the PRINT line that immediately follows 
GOSUB. 

Then, since you deleted END, it goes to the next line — the subroutine in 
Line 500. This time, though, it doesn't know where to return. This is 
because it's merely "dropping" into the subroutine; it is not being sent to 
the subroutine by a GOSUB line. 
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This subroutine raises a number to any power: 



;10 


INPUT "TYPE A NUMBER" ", N 


20 


INPUT "TYPE THE POWER YOU WANT IT RAISED 




TO" ; P 


30 


GOBUB 2000 


40 


PRINT : PRINT N "TO THE POWER OF" P "IS" E 


50 


GOTO 10 


2000 


REM FORMULA FOR RAISING A NUMBER TO A 




POWER 


2010 


E = 1 


2020 


FOR X = 1 TO P 


2030 


E = E * N 


2040 


NEXT X 


2050 


IF P = THEN E = 1 


20B0 


RETURN 



^ 



See something different 
about INPUT? You can have 
the computer print a mes- 
sage before waiting for your 
input. 



Also introduced in this program are: 

The colon (:), in Line 40. You can combine program lines using the 
colon to separate them. Line 40 contains the two lines: PRINT and 
PRINT N "TO THE" P "POWER IS" E. 

REM, in Line 2000. REM means nothing to the computer. Put REM 
lines wherever you want in your program to help you remember 
what the program does; they make no difference in the way the 
program works. To see for yourself, add these lines and run the 
program: 

5 REM THIS IS A PECULIAR PROGRAM. 
17 REM WILL THIS LINE CHANGE THE PROGRAM? 
45 REM THE NEXT LINE KEEPS THE SUBPROGRAM 
SEPARATED 



PRINT by itself tells the com- 
puter to skip a line. 



DO-IT-YOURSELF PROGRAM 10-1 

Change the above program so that the computer prints a table of 
squares (a number to the power of 2) for numbers, say, from 2 to 10. 



The answer's in the back. 



Give the Computer a Little Help 

As math formulas get more complex, your computer needs help under- 
standing them. For example, what if you want the computer to solve this 
problem: 

Divide the sum of 13 + 3 by 8 

You may want the computer to arrive at the answer this way: 

13 + 3/8 = 16/8 = 2 

But, instead, the computer arrives at another answer. Type this command 
line and see: 



PRINT 13 + 3 / 8 (ENTER) 
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The computer solves problems logically, using its own rules: 



^ 



An "operation" is a problem 
you want the computer to 
solve. Here the operations 
are addition, subtraction, 
multiplication, and division. 



RULES ON ARITHMETIC 
The computer solves arithmetic problems in this order: 

1. First, it solves any multiplication and division operations. 

2. Last, it solves addition and subtraction operations. 

3. If there's a tie (that is, more than one multiplication/division or 
addition/subtraction operation), it solves the operations from left to 
right. 



In the problem above, the computer follows its rules: 

• First, it does the division (3/8 = .375) 

Then, it does the addition (13 + .375 = 13.375) 

For the computer to solve the problem differently, you need to use paren- 
theses. Type this line: 



PRINT (13 + 3) / 8 (INTER) 

Whenever the computer sees an operation in parentheses, it solves that 
operation before solving any others. 



COMPUTER MATH EXERCISE 

What do you think the computer will print as the answers to each of 
these problems? 

PRINT 10 - (5 - 1 )/ 2 

PRINT 10 - 5 - 1 / 2 



PRINT (10 - 5 - 1 )/ 2. 
PRINT (10 - 5) - 1 / 2. 
PRINT 10 - (5 - 1 / 2) . 



Finished? Type each of the command lines to check your answers. 
What if you want the computer to solve this problem? 

Divide 10 minus the difference of 5 minus 1 by 2 
You're actually asking the computer to do this: 

(10 - (5 - 1) )/ 2 

When the computer sees a problem with more than one set of parentheses, 
though, it solves the inside parentheses and then moves to the outside 
parentheses. In other words, it does this: 
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(10 - (5 - l))/2 



(10 - 4) / 2 
6/ 2 



5-1 = 4 

10 - 4 = 6 

6/2 = 3 



RULES ON PARENTHESES 

1 . The computer solves operations enclosed in parentheses first, be- 
fore solving any others. 

2. The computer solves the innermost parentheses first. It then works 
its way out. 



COMPUTER MATH EXERCISE 

Insert parentheses in the problem below so that the computer prints 28 
as the answer: 

PRINT 30-9-8-7-6 



Answer: 

PRINT 30 - (9 - (8 - (7 - G) ) ) 

Saving Routines 

The program below uses two subroutines. It's for those of you who save by 
putting the same amount of money in the bank each month: 

10 INPUT "YOUR MONTHLY DEPOSIT" ! D 

20 INPUT "BANK 'S ANNUAL INTEREST RATE" ! I 

30 I = 1/12 * ,01 

40 INPUT "NUMBER OF DEPOSITS" ! P 

50 GOSUB 1000 

G0 PRINT "YOU WILL HAVE $" FV "IN" P "MONTHS" 

70 END 



1000 REM COMPOUND MONTHLY INTEREST FORMULA 
1010 N = 1 + I 

GOSUB 2000 

FV = D * ( (E - 1) / I) 
1040 RETURN 
2000 REM FORMULA FOR RAISING A NUMBER TO A 

POWER 

E = 1 

FOR X = 1 TO P 

E = E * N 

NEXT X 

IF P = THEN E = 1 

RETURN 



1020 
1030 



2010 
2020 
2030 
2040 
2050 
20G0 
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Notice that one subroutine "calls" another. This is fine with the computer 
as long as: 

there's a GOSUB to send the computer to each subroutine, and 

there's a RETURN at the end of each subroutine. 

Turn to the Appendix, "Subroutines." You'll find useful math subroutines 
you can add to your programs. 



Learned in Chapter 10 

BASIC WORDS BASIC SYMBOLS BASIC CONCEPTS 



GOSUB 

RETURN 



Order of operations 
REM 



Notes 
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CHAPTER 11 



WORDS, WORDS, 
WORDS . . . 



A great skill of the computer is its gift with words. It can tirelessly twist and 
combine words any way you want. With this gift, you can get it to read, 
write, and even talk. 



Combining Words 



Type and run this program: 

10 PRINT "TYPE A SENTENCE" 

20 INPUT S$ 

30 PRINT "YOUR SENTENCE HAS " LEN(S$) " 

CHARACTERS" 
40 INPUT "WANT TO TRY ANOTHER" ; A$ 
50 IF A$ = "YES" THEN 10 

Impressed? LEN(S$) computes the length of string S$ — your sentence. The 
computer counts each. character in the sentence, including spaces and 
punctuation marks. 




Erase the program and run this, which composes a poem (of sorts): 



10 


A$ = 


= "A ROSE" 


20 


B$ = 


- ii 11 


30 


C$ = 


= "ISA ROSE" 


40 


D$ = 


= B$ + C$ 


50 


E$ = 


= "AND SO FORTH AND SO ON 


G0 


F$ = 


: A$ + D$ + D$ + B$ + E$ 


70 


PRINT F$ 



Here the plus sign ( + ) combines strings. For example, D$ ("IS A ROSE") is 
a combination of B$ + C$. 

There are two problems you may encounter when combining strings. Add 
the following line and run the program. It shows both problems: 

80 G$ = F$ + F$ + F$ + F$ + F$ + F$ + F$ 

When the computer gets to Line 80, it prints the first problem with this line: 
?OS ERROR IN 80 ("out of string space"). 



You will not get the OS er- 
ror if you have not started 
up your computer since 
you ran the program from 
Chapter 8 with the CLEAR 
500 line. 



^ 
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On startup, the computer reserves only 200 characters of space for work- 
ing with strings. Line 80 asks it to work with 343 characters. To reserve 
room for this many characters and more (up to 500), add this line to the 
start of the program and run: 

5 CLEAR 500 

Now when the computer gets to Line 80, it has enough string space, but 
prints the second problem with this line: ?LS ERROR IN 80 ("string too 
long"). 

A string can contain no more than 255 characters. When storing more than 

255 characters, you need 4 o put these characters into several strings. 



Not impressed? Later, we'll 
show practical uses of this 
unusual skill. 



Twisting Words 



Now that you can combine strings, try to take a string apart. Type and run 
this program: 



10 
20 
30 



40 



INPUT "TYPE A W0R0" 5 W$ 

PRINT "THE FIRST LETTER IS : " LEFT$ (W$ »1 ) 

PRINT "THE LAST 2 LETTERS ARE : " RIGHT$ 

(W$ ,2) 

GOTO 10 



Here's how the program works: 

In Line 10 you input string W$. Assume the string is MACHINE: 




In Lines 20 and 30, the computer computes the first left letter and the last 
two right letters of the string: 

MACHINE 
LEFT$ (W$ >1 ) RIGHT$ (W$»2) 

Run the program a few more times to see how it works. 

Now add this line to the program: 

5 CLEAR 500 

so that your computer will set aside plenty of space for working with 
strings. Run the program again. This time input a sentence rather than a 
word. 



PROGRAMMING EXERCISE 

How would you change Lines 20 and 30 so that the computer will give 
you the first 5 letters and the last 6 letters of your string? 

20 . . 

30 



Answers: 



PRINT "THE FIRST FIYE LETTERS ARE 
(W$ ,5) 



LEFT$ 
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30 PRINT "THE LAST SIX LETTERS ARE : " RIGHT$ 
(W$ ,E) 



Erase your program and type this one: 

10 CLEAR 500 

20 INPUT "TYPE A SENTENCE" 5 S$ 

30 PRINT "TYPE A NUMBER FROM 1 TO " LEN(S$) 

40 INPUT X 

50 PRINT "THE MIDSTRING WILL BEGIN WITH 

CHARACTER " X 
B0 PRINT "TYPE A NUMBER FROM 1 TO " LEN(S$) - X 

+ 1 
70 INPUT Y 
80 PRINT "THE MIDSTRING WILL BE" Y 

"CHARACTERS LONG" 
90 PRINT "THIS MIDSTRING IS : " MID$(S$ »X»Y) 
100 GOTO 20 

Run this program a few times to see if you can deduce how MID$ works. 

Here's how the program works: 

In Line 20, assume you input HERE IS A STRING: 




In Line 30, the computer first computes the length of S$, which is 16 
characters. It then asks you to choose a number from 1 to 1 6. Assume you 
choose 6. 

In Line 60, the computer asks you to choose another number from 1 to 1 2 
(16-6 + 1). Assume you choose 4. 

»^ wi ^i < i^s^^^ " < 




In Line 90, the computer gives you a "mid-string" of S$ that starts at the 6th 
character and is four characters long: 



11 12 13 14 15 IB 
STRING 



12345G789 
HERE IS A 

MID$(S$ »B ,4) 

For another example of MID, erase the program and run this: 

10 INPUT "TYPE A SENTENCE" ! S$ 

20 INPUT "TYPE A WORD IN THE SENTENCE" » W$ 

30 L = LEN(W$) 

40 FOR X = 1 TO LEN(S$) 

50 IF MID$(S$ >X ,L) = W$ THEN 90 

B0 NEXT X 

70 PRINT "YOUR WORD ISN'T IN THE SENTENCE" 

80 END 

90 PRINT W$ "--BEGINS AT CHARACTER NO, " X 



Remember how to erase a 
program? Type: 

NEW 1MB 



You can use this kind of 
program to sort through in- 
formation. For instance, by 
separating strings, you could 
look through a mailing list 
for TEXAS addresses. 
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Here's how the program works: 

In Line 20, assume you input the word IS for W$. In Line 30, the computer 
counts W$'s length: 2 characters. 




In Lines 40-90 (the FOR/NEXT loop), the computer counts each character 
in S$, starting with character 1 and ending with character LEN(S$), which 
is 16. 

Each time the computer counts a new character, it looks at a new mid- 
string. Each mid-string starts at character X and is L (2) characters long. 

For example, when X equals 1, the computer looks at this mid-string: 

HERE IS A 

MID$(S$ ,1 ,2) 



STRING 



The fourth time through the loop, when X equals 4, the computer looks at 
this mid-string: 



' 



HERE IS A 

MID$(S$ >ti>2) 



STRING 



When X equals 6, the computer finally finds IS, the mid-string for which it is 
searching. 




DO-IT-YOURSELF PROGRAM 11-1 
Start with a one-line program: 

10 A$ = "CHANGE A SENTENCE." 
Add a line that inserts this to the start of A$: 

IT'S EASY TO 
Add another line that prints the new sentence: 

IT'S EASY TO CHANGE A SENTENCE 



!K*.= SSR5«K9 !„.ii;s.:;, 



:«? ;; V: .. o.,-:,-..^ = VHiS.ssi-;.; ;-.; 



i 
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This is our program: 

10 A$ = "CHANGE A SENTENCE, 

20 B$ = " IT 'S EASY TO" 

30 C$ = B$ + " " + A$ 

40 PRINT C$ 



DO-IT-YOURSELF PROGRAM 11-2 
Add to the above program to make it: 
Find the start of this mid-string: 

A SENTENCE 
Delete the above mid-string to form this new string: 

IT'S EASY TO CHANCE 
Add these words to the end of the new string: 

ANYTHING YOU WANT 
Print the newly formed string: 

IT'S EASY TO CHANCE ANYTHING YOU WANT 



HINT: To form the string IT'S EASY TO CHANCE, you need to get the 
left portion of the string IT'S EASY TO CHANCE A SENTENCE. 



Answer: 

10 A$ = "CHANGE A SENTENCE, " 

20 B$ = " IT'S EASY TO" 

30 C$ = B$ + " " + A$ 

40 PRINT C$ 

50 Y = LEN ( "A SENTENCE" ) 

G0 FOR X = 1 TO LEN(C$) 

70 IF MID$ <C$ >X >"() = "A SENTENCE" THEN 90 

80 NEXT X 

85 END 

90 D$ = LEFT$ <C$ t)< - 1 ) 

100 E$ = D$ + "ANYTHING YOU WANT" 

110 PRINT E$ 



This program is the basis of a 
"word processing" pro- 
gram — a popular program 
that cuts down typing 
expenses. 



DO-IT-YOURSELF CHALLENGER PROGRAM 

Write a program that: 

Asks you to input a sentence. 

Asks you to input (1 ) a phrase within the sentence to delete and (2) a 
phrase to replace it. 

Prints the changed sentence. 

This may take a while, but you have everything you need to write it. 
Our answer's in the back. 
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Learned in Chapter 1 1 

BASIC WORDS BASIC String OPERATOR 

LEN + 

LEFT$ 
RIGHT$ 
MID$ 



Notes 



70 



CHAPTER 12 

A POP QUIZ 



By using a word named INKEY$, you can get the computer to constantly 
"watch," "time," or "test" what you're typing. Type and run this program: 

10 A$ = INKEY* 

20 IF A$ <>"" GOTO 50 

30 PRINT "YOU PRESSED NOTHING" 

40 GOTO 10 

50 PRINT "THE KEY YOU PRESSED IS---" A$ 

INKEY$ checks to see if you're pressing a key. It does this in a split second. 
At least the first 20 times it checks, you've pressed nothing (" "). 

Line 10 labels the key you press as A$. Then the computer makes a 
decision: 

If A$ equals nothing (" "), it prints YOU PRESSED NOTHING and 
goes back to Line 10 to check the keyboard again. 

If A$ equals something (anything but " "), the computer goes to Line 
50 and prints the key. 

Add this line and run the program: 

B0 GOTO 10 

No matter how fast you are, the computer is faster! Erase Line 30 to see 
what keys you're pressing. 



Beat the Computer 

Type this program: 

D<4) 
D<4) 

X " + " Y 




Remember that < > means 
"not equal to." 



" " is an "empty string" 
(nothing). 



10 


X = RND(4) 


20 


Y = RND(4) 


30 


PRINT "WHAT IS" 


40 


T = 


50 


A$ = INKEY$ 


B0 


T = T + 1 


70 


SOUND 128 >1 


80 


IF T = 15 THEN 20 


90 


IF A$ = "" THEN 5 


100 


GOTO 10 



200 CLS(7) 

210 SOUND 180 > 30 

220 PRINT "TOO LATE" 



Here's how the program works: 

Lines 1 0, 20, and 30 have the computer print two random numbers and ask 
you for their sum. 

Line 40 sets T to 0. T is a timer. 
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Line 50 gives you your first chance to answer the question — in a split 
second. 

Line 60 adds 1 to T, the timer. T now equals 1 . The next time the computer 
gets to line 60 it again adds 1 to the timer to make T equal 2. Each time the 
computer runs Line 60 it adds 1 to T. 

Line 70's there just to make you nervous. 

Line 80 tells the computer you have 1 5 chances to answer. Once T equals 
15, time's up. The computer insults you with Lines 200, 210, and 220. 

Line 90 says if you haven't answered yet the computer should go back and 
give you another chance. 

The computer gets to Line 100 only if you do answer. Line 100 sends it 
back for another problem. 

How can you get the computer to give you three times as much time to 
answer each question? 



Answer: 

By changing this line: 

80 IF T = 45 THEN 200 




a*— 



Remember the problem of 
mixing strings with num- 
bers? Chapter 2 will refresh 
your memory. 



^ 



Checking Your Answers 

How can you get the computer to check to see if your answer is correct? 
Would this work? 

100 IF A$ = X + Y THEN 130 

110 PRINT "WRONG" , X " + " Y " = " X + Y 

120 GOTO 10 

130 PRINT "CORRECT" 

140 GOTO 10 

If you run this program (and answer on time), you'll get this error message: 
?TM ERROR IN 100 

That's because you can't make a string (A$) equal to a number (X + Y). You 
somehow must change A$ to a number. 
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Change Line 100 by typing: 

100 IF VAL(A$) = X + Y THEN 130 

VAL(A$) converts A$ into its numeric value. If A$ equals the string 
example, VAL(A$) equals the number 5. If VAL(A$) equals the stri 
VAL(A$) equals the number 0. ("C" has no numeric value.) 

To make the program more challenging, change these lines: 

10 X = RND<49> + 4 

20 Y = RNDU9) + 4 

90 B$ = B$ + A$ 

100 IF VAL(B$) = X + Y THEN 130 



"5," for 
ng"C," 



Then add these lines: 



45 
95 



B$ = " " 

IF LEN(B$) 



THEN 50 



A Computer Typing Test 

Here's a program that times how fast you type: 

10 CLS 

20 INPUT "PRESS < ENTER)- WHEN READY TO TYPE 

THIS PHRASE" ! E$ 
30 PRINT "NOW IS THE TIME FOR ALL GOOD MEN" 
40 T = 1 
■, 50 A$ = INKEY$ 
60 IF A$ = "" THEN 100 
70 PRINT A$! 
80 B$ = B$ + A$ 
90 IF LEN(B$) = 32 THEN 120 
100 T = T + 1 
110 GOTO 50 

120 S = T/74 

130 M = S/B0 

140 R = 8/M 

150 PRINT 

160 PRINT "YOU TYPED AT- - " R" - - WDS/M I N " 
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We could have made this 
calculation in one line by us- 
ing parentheses: 

120 R=8/( (T/74)/ 

60) 



^} 



Line 40 sets T, the timer, to 1 . 

Line 50 gives you your first chance to type a key (A$). If you're not fast 
enough, Line 60 sends the program to Line 100 and adds 1 to the timer. 

Line 70 prints the key you typed. 

Line 80 forms a string named B$. Each time you type a key (A$), the 
program adds this to B$. For example, if the first key you type is "N," then: 



A$ = "N" 




and 




B$ = B$ + A$ 




B$ = " " + "N" 




B$ = "N" 




If the next key you type is "Of 


then: 


A$ = "0" 




and 




B$ = B$ + A$ 




B$ = "N" + "0" 




B$ = "NO" 




If the third key you type is "W, 


' then: 


A$ = "W" 




and 




B$ = "NO" + "W" 




B$ = "NOW" 





When the length of B$ is 32 (the length of NOW IS THE TIME FOR ALL 
GOOD MEN), the program assumes you've finished typing the phrase and 
goes to Line 120 to compute your words per minute. 

Lines 1 20, 1 30, and 1 40 compute your typing speed. They divide T by 74 
(to get the seconds), S by 60 (to get the minutes). They then divide the eight 
words by M to get the words per minute. 



How about a variation of this 
program— a speed-reading 
test? 



Learned in Chapter 12 

BASIC WORDS 



INKEY$ 
VAL 



Notes 
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CHAPTER 13 

MORE BASICS 



Before you're finished with the "basics," you need to know a few more 
words. 



The first is STOP. Type and run this program: 

10 A = 1 

20 A = A + 1 

30 STOP 

40 A = A * 2 

50 STOP 

60 GOTO 20 



The computer starts running the program. When it gets to Line 30, it prints: 

BREAK IN 30 
OK 



You now can type a command line to see what's happening. For example, 
type: 



PRINT A (ENTER) 

The computer prints 2— A's value when the program's at Line 30. Now 
type: 



CONT (ENTER) 

The computer continues the program. When it gets to Line 50, it prints: 
BREAK IN 50 



Type: 



PRINT A (INTER) 
This time the computer prints 4 — A's value at Line 50. 



Type CONT again, and the computer breaks again at Line 30. If you have it 
again print A, it prints 5— the value of A at Line 30 the second time through 
the program. 



Inserting STOP lines in your program helps you figure out why it's not 
working the way you expect. When you fix the program, take the STOP 
lines out. 
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To save memory, you can 
omit spaces in your program 
before and after punctuation 
marks, operators, and BASIC 
words. 



^ 



For Long Programs . . . 



Clear memory and type: 



PRINT MEM CENTER) 

The computer prints how much storage space remains in the computer's 
memory. 

When you're typing a long program, you will want to have the computer 
PRINT MEM from time to time to make sure you're not running out of 
memory. 



Help with Typing 



Type this program: 



30 

100 
110 



210 

300 
310 



INPUT "TYPE 1 t 2t OR 3" 5 N 
ON N GOSUB 100 # 200 , 300 
GOTO 10 

PRINT "YOU TYPED 1" 
RETURN 

PRINT "YOU TYPED 2" 
RETURN 

PRINT "YOU TYPED 3" 
RETURN 



Run it. 

ON . . . GOSUB in Line 20 works the same as three lines: 

18 IF N = 1 THEN GOSUB 100 
20 IF N = 2 THEN GOSUB 200 
22 IF N = 3 THEN GOSUB 300 

ON . . . GOSUB looks at the line number following ON — in this case N. 

If N is /, the computer goes to the subroutine starting at the first line 
number following GOSUB. 

If N is 2, the computer goes to the subroutine starting at the second 
line number. 

If N is 3, the computer goes to the subroutine starting at the third line 
number. 

What if N is 4? Since there's no fourth line number, the computer simply 
goes to the next line in the program. 



Here is a program that uses ON . . . GOSUB: 



5 

10 

20 

30 

40 

50 

B0 

70 



FOR P = 1 TO B00: NEXT P 
CLS : X = RND ( 1 00 ) : Y = RND (100) 
PRINT " ( 1 ) ADDITION" 
PRINT " (2) SUBTRACTION" 
PRINT "(3) MULTIPLICATION" 
PRINT "(4) DIVISION" 
INPUT "WHICH EXERCISE* 1-4) " ; R 
CLS 
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r80 ON R GOSUB 1000 > 2000 t 3000 > 4000 
90 GOTO 5 

1000 PRINT "WHAT IS" X " + " Y 

1010 INPUT A 

1020 IF A = X + Y THEN PRINT "CORRECT" ELSE 

PRINT "WRONG" 
1030 RETURN 



2010 
2020 

2030 

3000 
3010 
3020 

3030 



PRINT "WHAT IS" X "-" Y 

INPUT A 

IF A = X-Y THEN PRINT "CORRECT" ELSE 

PRINT "WRONG" 

RETURN 

PRINT "WHAT IS" X "*" Y 

INPUT A 

IF A = X*Y THEN PRINT "CORRECT" ELSE 

PRINT "WRONG" 

RETURN 



400(i 

4010 INPUT A 

4020 IF A = X/Y THEN PRINT "CORRECT" ELSE 

PRINT "WRONG" 
4030 RETURN 



Notice the word ELSE in Lines 1 020, 2020, 3020, and 4020. You can use 
ELSE if you want the computer to do something special when the condition 
is not true. In Line 1020, if your answer— A— equals X + Y, then the 
computer prints CORRECT or else it prints WRONG. 

YoumayuseON . . . GOTO ina similarway asON . . . GOSUB. Theonly 
difference is that ON GOTO sends the computer to another line number 
rather than to a subroutine. 



When A does not equal X + 
Y, the condition set up in 
Line 1020 is not true. 



^ 



Here's part of a program using ON . . . GOTO: 



10 
20 
30 
40 
50 
G0 
G5 
70 

1000 
1010 

2000 
2010 

3000 
3010 



CLS 

PRINT @ 134 , " ( 1 ) CRAZY EIGHTS" 

PRINT @ 1GG , " (2) 500" 

PRINT @ 198 > "(3) HEARTS" 

PRINT @ 354 > "WHICH DO YOU WANT TO PLAY" 

INPUT A 

CLS 

ON A GOTO 1000 > 



PRINT @ 
END 

PRINT @ 
END 

PRINT @ 
END 



130 > 



2000 t 3000 

CRAZY EIGHTS GAME' 



!3G > "500 GAME" 



!35 , "HEARTS GAME' 
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Does the Job Say "AND" or "OR"? 

Anyone who speaks English knows the difference between "and" and 
"or" — even your computer. For example, assume there's a programming 
job opening. The job requires: 

A degree in programming 

AND 
Experience in programming 




Erase memory and type: 
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PRINT "DO YOU HAUE--" 
INPUT "A DEGREE IN PROGRAMMING" 5 D$ 
INPUT "EXPERIENCE IN PROGRAMMING"! E$ 
IF D$ = "YES" AND E$ = "YES" THEN PRINT "Yl 
HAUE THE JOB" ELSE PRINT "SORRY , WE CAN'T 
HIRE YOU" 



30 

40 IF D$ = "YES" AND E$ = "YES" THEN PRINT "YOU 

HAUE THE JOB" ELSE PRINT "SORRY , WE CAN'T 

HIRE YOU" 
50 GOTO 10 

Run the program. You may answer the questions this way: 

DO YOU HAVE-- 

A DEGREE IN PROGRAMMING? NO 
EXPERIENCE IN PROGRAMMING? YES 
SORRY t WE CAN'T HIRE YOU 

Now, assume the requirements change so that "or" becomes "and." The 
job now requires: 

A degree in programming 

OR 
Experience in programming 

To make this change in the program, type: 

40 IF D$ = "YES" OR E$ = "YES" THEN PRINT 

"YOU'VE GOT THE JOB" ELSE PRINT "SORRY, WE 
CAN'T HIRE YOU" 



Run the program and see what a difference AND and OR makes: 

DO YOU HAVE-- 

A DEGREE IN PROGRAMMING? NO 
EXPERIENCE IN PROGRAMMING? YES 
YOU HAVE THE JOB 
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More Arithmetic 



These words can save many program lines: 



SGN 

SGN tells you whether a number is positive, negative, or zero: 

10 INPUT "TYPE A NUMBER" 5 X 

20 IF SGN(X) = 1 THEN PRINT "POSITIVE" 

30 IF SGN(X) = THEN PRINT "ZERO" 

40 IF SGN(X) = -1 THEN PRINT "NEGATIVE" 

50 GOTO 10 

Run the program, inputting these numbers: 



15 



-30 



ABS 

ABS tells you the absolute value of a number (the magnitude of the number 
without respect to its sign). Type: 

10 INPUT "TYPE A NUMBER" J N 
20 PRINT "ABSOLUTE VALUE IS" ABS(N) 
30 GOTO 10 
Run the program inputting the same numbers as the ones above. 

STR$ 

STR$ converts a number to a string. Example: 
10 INPUT "TYPE A NUMBER" J N 
20 A$ = STR$(N) 
30 PRINT A$ +" IS NOW A STRING" 



Exponents 

Type and run this program to see how the computer deals with very large 
numbers: 

10 X = 1 

20 PRINT X; 

30 X = X * 10 

40 GOTO 20 



Notice the OV (overflow) 
error at the end. The com- 
puter can't handle numbers 
larger than IE + 38 or smal- 
ler than -1E + 38. (It rounds 
off numbers around 1E-38 
and-1E-38toO.) 



^ 



The computer prints very large or very small numbers in "exponential 
notation." "One billion" (1 ,000,000,000), for example, becomes 1 E + 09, 
which means "the number 1 followed by nine zeros." 

If an answer comes out "5E-06," you must shift the decimal point, which 

comes after the 5, six places to the left, inserting zeroes as 

Technically, this means 5*10-6, or 5 millionths (.000005). 

Exponential notation is simple once you get used to it. You'll find it an easy 
way to keep track of very large or very small numbers without losing the 
decimal point. 



A Or technically 1*109, which 
M is 1 times 10 to the ninth 
\_ power : 1*10*10*10* 
10*10*10*10*10*10 



)int ' which /J In our BASIC, that': 

necessary. < mnonono 



's 5/10/10/ 
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Congratulations, Programmer! 

You've now learned the "basics" and can no doubt write some decent 
programs. The next section will help you add excitement to your programs 
with graphics and music. 




Learned in Chapter 13 

BASIC WORDS BASIC SYMBOLS BASIC CONCEPT 



STOP 


SGN 


AND 


Exponential 


CONT 


ABS 


OR 


notation 


MEM 


STR$ 







Notes 
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SECTION II 



SIGHTS AND SOUNDS 

Have you reached your fill of BASIC basics? In this section, you'll take a dra- 
matic leap and learn to: 

Draw a circle 

Paint a house 

Compose a song 

Cool off with a cube 

And much more! 

And you'll also be amazed at how quickly and easily you can do this! So 
turn the page and we'll get right to the point. 



CHAPTER 14 



LET'S GET TO THE POINT 



One of the most exciting features of Extended Color BASIC is its ability to 
display precise, varied, and easy-to-use graphics called "high-resolution 
graphics." 

Just how easy-to-use are these graphics? Wei I, let's start with the most basic 
(pun intended) graphic element — a dot (or point) — and build from there. 

Extended Color BASIC makes it simple to put a dot on the screen. Type the 
following program and see: 

5 PMDDE 1 .1 

10 PCLS 

20 SCREEN 1 .1 

30 PSET ( 10 .20 .8) 

40 GOTO 40 

Now run the program. The screen should be buff, and if you look carefully, 
you can see a small orange dot in the upper left corner. That dot was put 
there by the PSET (point set) in Line 30. 



c. 




>'.'/ 

/V^ 



A 1 0,600-mile journey 
starts with a single step, 
and even the Mona Lisa 
began with a single stroke 
on the canvas. (A Jackson 
Pollock might begin with a 
single splatter!) 



Don't worry about any of 
the new words. PMODE 
and SCREEN, for instance, 
determine the degree of de- 
tail and the range of color. 
They are covered in later 
chapters. 



PSET lets you set a dot anywhere on the screen. It has this format: 

PSET (h,v,c) sets a point on the current graphics screen 

h is the horizontal position (0 to 255). 
v is the vertical position (0 to 191). 

c is the color (0 to 8). If you omit c, BASIC uses the current 
foreground color. 

Even though you can't see it, the computer has divided your screen into a 
grid of nearly 50,000 dots — 256 across and 192 down — so that you can 
put a dot precisely where you want it. Simply look up the dot's position in 
the Graphics Screen Worksheet in the back of this manual. 

Look at Line 30 again and see how PSET specifies the dot's position (10 
over and 20 down): 

30 PSET (10.20.8) 




1 



You'll see these "syntax 
blocks" throughout this 
section. They'll help you un- 
derstand the "parameters" 
you can use with graphic 
statements. 
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Very Important Note! The 
Color Computer can pro- 
duce 9 colors: black, green, 
yellow, blue, red, buff, 
cyan, magenta, and orange. 
The actual shade you get, 
though, depends on your 
TV. — not the computer. We 
suggest you perform the 
color adjustment test pro- 
gram in your introduction 
manual before running these 
programs. 



Here's the statement you would use to set an orange dot in the center of the 
screen: 

PSET (128,9(3,8) 

Now add a program line that sets an orange dot in the lower right corner 
(255 over and 191 down). 

Is this the line you used? 

35 PSET (255,191 ,8) 

If so, congratulations! You've made your point. Run your program and 
you'll see. 

Now list the program. It should look like this: 

5 PMODE 1 ,1 

10 PCLS 

20 SCREEN 1 ,1 

30 PSET (10,20,8) 

35 PSET (255 ,191 ,8) 

40 GOTO 40 

You're off to a great start . . . 



... But What About the Color? 

By now, you've probably figured out that you can change colors by 
changing c to a different number in the range to 8. 

Within limits, this is true. However — and it's a big however — you may not 
get the color you specified. There's a good reason for this, which we'll 
cover later in the discussion of the different graphic "modes." For now, 
don't worry if you don't always get the color you want. 








Here is the list of color codes: 



The 8 gives the color (or- 
ange). Later, we'll discuss 
how to change the color. 
For now, simply use orange. 



Code Color 




1 
2 
3 
4 
5 
6 
7 
8 



Black 

Green 

Yel low 

Blue 

Red 

Buff 

Cyan 

Magenta 

Orange 



If you want to try changing the dots' colors, use buff (5), cyan (6), or 
magenta (7). Then change the color back to orange (8) before proceed- 
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ing. (These 4 colors are the only ones available with your current 
program.) 

Now You See It . . . Now You Don't 

Any guesses how to turn off a dot? Here's a hint: It's easy and it has to 
do with color. 

You see, you don't really turn off the dot, you simply change its color so 
that it blends into the background. You do this with a new statement: 
PRESET (point reset). PRESET "knows" you want to use the background 
color, so you don't need to give the color. 

PRESET (h,v) resets a point on the current graphics screen 

h is the horizontal position (0 to 255). 
v is the vertical position (0 to 191). 



DO-IT-YOURSELF PROGRAM 14-1 

Get to know the dot positions on your TV screen by using your 
Graphics Screen Worksheet. 

Select several points on the worksheet, identify them in terms of their 
(X,Y) coordinates, and display them on the screen using the program 
we used to get you started. Don't change any program lines except 
those that contain PSET(h,v,c)- 



DO-IT-YOURSELF PROGRAM 14-2 

Do you remember the RND (random) function from Section l( If 
not, review it; then write a short program that fills the screen with 
random dots of random colors. 

The Last Point 

Before you finish this chapter, we want to make one more point. You 
can use PPOINT to find out what color any dot on the screen is. 

PPOINT (h,v) tel Is what color a point is on the current graphics sc reen 

h is the point's horizontal position (0 to 255). 
v is the point's vertical position (0 to 191). 



This example shows how PPOINT can be handy to include in a program: 

5 PMODE 3,1 
10 PCLS 
15 SCREEN 1 ,1 
30 X = RND (10) 
35 Y = RND (10) 
40 C = RND(B) 
50 PSET (XfYiC) 

60 IF PPOINT (5»5)=B THEN GOTO 105 
70 GOTO 30 
105 CLS 

110 PRINT @ 100, "POSITION (5,5) 
IS NOW ORANGE" 
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The computer fills a 10X10 "square" (in the upper left corner of the screen) 
with random colored dots. When the dot in Position (5,5) is filled with an 
orange dot (Code 8), the computer displays the message POSITION (5,5) IS 
NOW ORANGE. 

Learned in Chapter 14 

BASIC WORDS CONCEPTS 



PSET 


Setting points 


PRESET 


Resetting points 




Changing colors 


PPOINT 


Finding a point's color 



Notes 



CHAPTER 15 



HOLD THAT LINE! 



So you can put a dot on the screen - even several dots. But what kind of 
starting point is that, you may wonder, when you're eager to create some 
"real" graphics. 

To answer that question, think of some of your very first "drawings" on 
paper. Perhaps they were detailed pictures of clowns and trained seals and 
other wonderful things. How did you draw such marvels? Probably by 
connecting a bunch of dots. 

And that is exactly how your computer "draws." You tell it which dots to 
connect, and it draws a line. 




That's Some Line You Have 

One way to tell the computer to draw a line between dots is to use the 
Extended Color BASIC statement LINE. To see LINE at work, modify the 
program that set the dots. (For the sake of convenience, call the program 
"Lines.") 

First change Line 30 as follows: 

30 LINE (0,0) - (255 ,191 ) »PSET 

Then delete Line 35 by typing: 



35 (ENTER) 

Your program should now read: 

5 PMODE 1 ,1 

10 PCLS 

20 SCREEN 1 ,1 

30 LINE (0 »0)-(255 ,191 ) »PSET 

40 GOTO 40 

Now run the program. The screen should display an orange line that runs 
from the upper left to the lower right on a buff background. 

How about changing the direction of the line so that it runs from the lower 
left to the upper right? 
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You've probably already figured this one out, but — just in case — here's the 
new Line 30: 

30 LINE (0,191 )-(255 ,0) >PSET 



X Marks the Spot 



What about intersecting lines? 



Using the Graphics Screen 
Worksheet, plot the points 
used in creating the in- 
tersecting lines in the 
"Lines" program. 




Reinsert the original Line 30 that drew the first line. (First, renumber it 
as Line 25.) Then run the program. Does your screen display 2 orange 
lines intersecting in the center? 

In fact, you can put as many lines on the screen as you want — once 
you learn the format. Here it is: 



LINE (h1,v1)-(h2,v2),a,b draws a line or a box on the current 
graphics screen 

(h1,v1) is the line's start point. 

(h2,v2) is the line's end point. 

a is either PSET (set) or PRESET (reset). 

fa is either B (box) or BF (box filled). This is optional. 

Note: You may omit the start point as discussed below. 



Just as in the old dot-to-dot days, you may often want to draw a line that 
begins at the last line's end point. Whenever this is the case, you may omit 
the start point. The computer automatically starts at either the end point set 
by the latest LINE statement or — if you haven't yet used LINE in the 
program — at (128,96). Here is an example: 

30 LINE (0 »0)-(255 ,191 ), PSET 
35 LINE -( 191 ,0) ,PSET 

Line 20 draws a line from (0,0) to (255,1 91 ). Line 30 then draws another 
line, this one from (255,191) to point (191,0). 

Regardless of whether or not you include the start point, you must precede 
the end point with a hyphen (-). 

How About Dropping a Line? 

We've discussed the line's start and end points. Now let's turn to the next 
parameter in the LINE statement — PSET or PRESET. 
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Take another look at the program lines that created the intersecting lines: 

30 LINE (0 »0)-<255 ,191) ,PSET 
35 LINE (0 ,191 )-(255 ,0) »PSET 

From your experience with turning on and off dots in Chapter 14, do you 
have any idea what the PSET parameter is doing and what would happen if 
you change it to PRESET? Try it and see. Change the PSET in Line 25 to 
PRESET and run the program again: 

30 LINE (0 »0)-<255 ,191 ) »PRESET 

If you guessed that the orange line that ran from the upper left to the lower 
right would "disappear," you were right. 

Now replace PSET in Line 30 with PRESET. The screen went blank, right? 
The reason is the way PSET and PRESET work in a LINE statement: 

PSET sets the line in the pre-specified foreground color. 

PRESET sets the line back to the pre-specified background 
color so that you can't see it. 

Note: The PSET and PRESET parameters in a LINE statement are 
not the same as the PSET and PRESET statements discussed in 
Chapter 14. They do not specify a dot or a color code. They 
merely specify that the line be set to the foreground or the back- 
ground color. 

Before proceeding, change the PRESET parameters in Lines 25 and 30 
back to PSET. 



The color specification is 
elsewhere in the program, 
not in the LINE command, so 
we'll come back to it later. 
For now, just concentrate on 
LINE. 



To B (a Box) or Not to B . . . 

We've almost made it through LINE, but a few items still need to be (to B?) 
covered. 



B stands for "box. 



With Extended Color BASIC, you can make a box without having to write a 
separate program line for each side. All you have to do is specify two 
opposing corners of the box and add ,B to the statement. Then, when you 
run the program, your computer creates a box instead of a line. 

To illustrate this, call your "Lines" program back into service. 

5 PMODE 1 ,1 

10 PCLS 

20 SCREEN 1 ,1 

25 LINE (0»0)-(255»191) ,PSET 

30 LINE (0 ,191 )-(255 ,0) »PSET 

40 GOTO 40 

As is, the program creates 2 orange lines that intersect in the center of the 
screen. Delete Line 30 and add the suffix ,B to Line 25. Now see what 
happens when you run the program. 

25 LINE (0 »0)-<255 ,191) ,PSET»B 
Did you box yourself in? 
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DO-IT-YOURSELF PROGRAM 15-1 

Write a program that creates a box with a pair of lines intersecting in 
the center. We'll tell you why these are the only available colors when 
we discuss PMODE and SCREEN in the next 2 chapters. 



Fill It Up 



We're almost at the end of the LINE, so let's try to finish. 

If you refer to the format of LINE, you can see you have the option of adding 
F to the optional suffix ,B. 

F lets you "fill" the box with the foreground color. Try it. Change Line 25 as 
follows: 

25 LINE <0,0)-<255 tl91) tPSET tBF 

How about that! You should have a big orange box (256 x 1 92) on a buff 
background. 

That's Color with a Capital C, 
Capital O, Capital . . . 

In Chapter 14, we explained how to use the c parameter of the PSET 
command to change the color of a dot. But we've also been talking for 
some time about foreground and background colors. Now it's time to 
explain them further. 

Naturally, if you're using one color heavily, you don't want to have to 
specify it each time you put something on the screen. With the COLOR 
feature, you don't have to. 

Within certain limits, the graphics feature COLOR lets you set the 
foreground/background colors. (See "PMODE" and "SCREEN" later in 
this book.) Here is its format: 

COLOR foreground, background sets the foreground and background 
color on the current graphics screen 

foreground is the code (0 to 8) for the foreground color. 
background is the code (0 to 8) for the background color. 

Note: As stated in Chapter 14, the only colors available with your 
current program are buff (5), cyan (6), magenta (7), and orange 
(8). 

When you don't specify the foreground and background colors, your 
computer automatically chooses the highest-numbered available color 
code for the foreground color and the lowest-numbered available color 
code for the background color. That's why the crossing lines in the "Lines" 
program are orange (8) on a buff background (5). 

To see COLOR in action, call on "Lines" again: 

5 MODE 1 »1 

10 PCLS 

20 SCREEN 1 ,1 

25 LINE (0 »0)- (255 »191 ) tPSET 



92 



30 LINE (0 ,191 )-(255 ,0) »PSET 
40 GOTO 40 

Insert Line 6 into your program: 

6 COLOR 5 il 

Now run the program. What do you think of buff lines crossing on a 
magenta background? 

Do you want to see what the colors look like when reversed? If so, retype or 
edit the line like this: 

6 COLOR 7 ,5 



If you used your Color Com- 
puter to draw an airplane 
and used COLOR to give it 
the right color, would you 
have flying colors? 



In the next chapter, you'll learn how to make even more colors available. 



DO-IT-YOURSELF PROGRAM 15-2 

Ready to try your own "Lines" program? Can you build a house? Start 
with Lines 5, 10, and 20 of the "Lines" program and take it from there. 
Be sure to add: 

A front door, of course. 

At least one window. (Don't forget to turn the lights on or off.) 

A chimney. (You won't need a chimneysweep, not yet anyway!) 

The overall design is up to you (Cape Cod, Ranch, or whatever), but 
we've included a sample house (good view, no pets) program in the 
back of the book. Don't worry about doorknobs; we'l I add those later. 

Be sure to save this program on cassette, since you'll be needing it 
later. (You'll find it much easier to draw the house if you plot its points 
on a Graphics Screen Worksheet.) 



DO-IT-YOURSELF PROGRAM 15-3 

This should be a real challenge for you. 

As you know, a straight line is the shortest distance between two 
points. Well, put a few extra miles between our two points. Use LINE 
to draw a crooked line. 

To get started, use Lines 5, 10, and 20 from the "Lines" program. 



COLOR is not an action 
statement; it must precede 
an action statement (such as 
PCLS or LINE) before the 
foreground and background 
colors are actually changed. 



Learned in Chapter 1 5 



BASIC WORDS 

LINE 



COLOR 



CONCEPTS 

Drawing a line 
Erasing a line 
Drawing a box 
Filling in a box 

Changing foreground and 
background colors 
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Notes 
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CHAPTER 76 

THE SILVER SCREEN 



Are you ready to find out about another statement? If so, turn down the 
lights and butter the popcorn, because we're about to raise the curtain on 
the silver screen. 




A Word About Video Memory 

Whenever you want to display an image on your TV, the computer 
stores the screen image in "video memory." The computer's TV-circuitry 
then "reads" the screen image and displays it on your TV. 

The "normal" video memory is large enough for text (letters and num- 
bers) but not for graphics (circles, lines, boxes, and so on). Conse- 
quently, the computer has two video memories: one for text and one for 
graphics. 



Lighting the Silver Screen 

Take a look at our "Lines" program for a second. Concentrate on the 
SCREEN statement in Line 20: 

5 PM00E 1 ,1 

10 PCLS 

20 SCREEN 1 ,1 

25 LINE (0 »0)-(255»191 ) »PSET 

30 LINE (0 ,191 )-(255»0) »PSET 

40 GOTO 40 

SCREEN tells the computer to display a screen image on your TV. What 
kind of screen it displays depends on the instructions you give it: 

First, you tel I the computer whether to use the TV screen for text (such 
as letters or numbers) or graphics (such as lines and circles). 

Second, you tell the computer what "color set" to use. 
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SCREEN type, color set displays the current graphics or text screen 

type is (text screen) or 1 (graphics screen) 
color set is or 1 

Note: If type or color set is any positive number greater than 1 , your 
computer uses 1 . 



Any time your program out- 
puts text (PRINT, INPUT), 
the computer automatically 
performs a SCREEN 0,0 
command. In a "2-color 
mode," described in the 
next chapter, this gives you a 
black and green screen. • 



In the "Lines" program, change Line 20 to: 
20 SCREEN »0 



Then run the program. Does your computer "hang up"? (Press (BREAK) to 
regain control.) 

Actually, the computer ran "Lines," just as before. This time, though, it did 
not show you the graphics screen. You asked to see the text screen instead. 

Now change Line 20 to: 

20 SCREEN 1 »0 

Notice that you have the graphics screen again, but this time the color set 
has been changed. 

At first glance, it appears that you have only 2 color choices — and 1 . 
Actually, though, you're choosing from a much greater variety: You're 
switching color sets, not individual colors. 

Color Set Green/Yellow/Blue/Red 



Color Set 1 



Buff/Cyan/Magenta/Orange 



DO-IT-YOURSELF PROGRAM 16-1 

Do you understand SCREEN? If you do, write a program that switches 
from text screen to graphics screen. You might want to put a loop in the 
program so that it changes the color set after it loops through the 
program. This way you can see all the SCREEN features at work. 



Clearing the Silver Screen 

(PCLS) 

Your "Lines" program should look like this: 



5 PMODE 1 »1 




10 PCLS 




20 SCREEN 1 »1 




25 LINE (0»0)-(255»191) 


»PSET 


30 LINE (0»191)-(Z55»0) 


»PSET 


40 GOTO 40 





Look at Line 10. It contains the PCLS statement. This statement simply 
clears the graphics screen. (It serves the same function for the graphics 
screen as CLS does for the text screen.) 
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Here is the syntax for PCLS: 



PCLS color clears the current graphics screen 

color is 0-8. If you omit the color, the computer clears the 
screen to the current background color. 



The "Lines" program doesn't make use of PCLS's co/oroption. Therefore, 
the computer uses the current background color, buff. Retype Line 10: 

10 PCLS G 

Run the program. Your screen now displays orange lines on a cyan 
background. 



Learned in Chapter 16 

BASIC WORDS CONCEPTS 

SCREEN Displaying the current screen 

PCLS Clearing the graphics screen 



Notes 
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CHAPTER 17 



MINDING YOUR PMODES 

What lets you produce exciting graphics is the massive size of graphics 
memory. To get a perspective on this, contrast graphics and text memory: 
Text memory has 512 memory locations; graphics memory has up to 
12,288! 




You can use the power of graphics memory in three ways: 

To produce graphics with very high resolution (fine detail). 

To produce graphics with many colors. 

To produce fast-changing, "animated" graphics by retaining many 
graphics screens in memory at once. 

How much you can use of each of these features depends on how you 
"set" graphics memory. The more you use of one feature — such as 
retaining many screens in memory — the less you can use of the other 
features (high resolution and colors). 

PMODE — the unknown statement in the "Lines" program — is what sets 
the features you want to use. PMODE lets you set 5 "modes," shown in 
Table 17-1. Each mode, of course, has its own trade-off of features. 



Table 17-1/ PMODE Settings 





Resolution 


Colors 


Screens 


PMODE 4 


high 


2 


2 


PMODE 3 


medium 


4 


2 


PMODE 2 


medium 


2 


4 


PMODE 1 


low 


4 


4 


PMODE 


low 


2 


8 
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"Lines" in Mode 4 

Bring back "Lines" and see what it looks like in a different mode. In case 
you've forgotten "Lines," here it is: 

5 PMODE 1 ,1 

10 PCLS 

20 SCREEN 1 ,1 

25 LINE <0»0)-<255»191 ) »PSET 

30 LINE (0,191 >-<255»0) »PSET 

40 GOTO 40 

Now change from Mode 1 to Mode 4. 

5 PMODE 4,1 

Run the program. You should spot two feature changes right away: 

The color changes because you shifted from a 4-color mode 
to a 2-color mode. 

The lines are much finer because they're in high resolution. 

(The next chapter talks about the third feature; the one having to do 
with storing more than one graphics screen in memory.) 



Colors a la Mode 

A 2-color mode, just like a 4-color mode, has 2 color sets. You saw one of 
the 2-color sets — black and buff— when you ran "Lines" in Mode 4. To see 
"Lines" in the other 2-color set — black and green — make this change: 

20 SCREEN 1 »0 

Table 17-2 shows what color sets you can use in 2-color and 4-color 
modes. 



Think of when you first 
started drawing. You prob- 
ably used wide crayons. 
When you got better, you 
began using thin crayons so 
that you could draw thin 
lines — lines with better 
"resolution." 



SCREEN 1,0 
SCREEN 1,1 



Table 1 7-2/ Color Sets 
2-Color 4-Color 

Black/Green Green/Yellow/Blue/Red 



Black/Buff 



Buff/Cyan/Magenta/Orange 



// 



Lines" — Through Thick and Thin 



Notice that when you ran "Lines" in high resolution (Mode 4), you didn't 
have to change any dot positions. Color BASIC uses the same 256 x 1 92 
screen grid, no matter what the resolution is. 

For example, (1 28,96) is always the center of the screen, no matter what 
resolution you're using, and (0,0) is always the upper-left corner of the 
screen. 

The size of each dot on the screen, though, is different in each resolution: 

Low resolution uses four grid dots to set a screen dot. When the 
computer sets Dot (0,0), for example, it also sets (1,0), (1,1), and (0,1). 

Medium resolution uses two grid dots to set a screen dot. When the 
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computer sets Dot (0,0), it also sets (1,0). 

High resolution uses only one grid dot to set a screen dot. When the 
computer sets Dot (0,0), that's all it sets. 

Thus, a diagonal line in low resolution looks more like a stairstep than one 
drawn in high resolution: 




Low resolution 



High resolution 



And the number of different screen positions you can use in low resolution 
is only one-fourth what you can use in high resolution (see Table 17-3). 



Table 17-3/ Graphics Screen Resolution 





Screen Positions 


Size of 




Available 


Each Dot 


High resolution 


256 x 192 






Medium resolution 


128 x 192 






Low resolution 


128 x 96 







Here is a program that shows a box cycle through each mode. Notice 
that with each mode the box's lines go from thick to thin and its colors 
go from 2 colors to 4 colors. 

5 FOR M00E = TO a 

10 PM0DE M00E ,1 

20 PCLS 

30 SCREEN 1 ,1 

40 LINE (75 ,50)- ( 125 ,100) ,PSET »B 

50 FOR Y = TO 500: NEXT Y 

G0 NEXT MODE 

70 GOTO 5 

This is PMODE's format. The next chapter shows how to use use the 
second parameter, start page. 
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PMODE mode,start page sets the current graphics screen in graph- 
ics memory 

mode specifies the features you want to use in graphics 
memory. If you omit mode, the computer uses the last 
mode or (if none) Mode 2. 

start page specifies on which page in graphics memory to 
start a graphics screen. If you omit start page, the com- 
puter uses the last start page or (if none) Page 1 . 

Therefore, if you omit PMODE, the computer uses PMODE 
2,1. 



Keep in mind that the 
graphics screen is always 
full of "dots." The issues are 
simply how many, what 
size, and what color. 



Learned in Chapter 1 7 



BASIC WORDS 

PMODE 



CONCEPT 

Selecting a resolution mode 
Selecting color availability 



Notes 
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CHAPTER 18 

FINDING THE RIGHT PAGES 

In writing this book, we've "stored" chapters on pages. Some chapters 
require more pages; some less. 

In the same sense, Color BASIC stores graphics screens on 1 ,536-byte 
blocks of graphics memory called "pages." Some screens require more 
pages; some less. 

Table 1 8-1 shows how many pages it takes to draw a screen in each mode. 
As you can see, a screen drawn in a higher mode (which offers higher res- 
olution or more colors) consumes more memory pages than a screen drawn 
in a lower mode. 




Table 18-1/ Pages Required for Graphics Screens 

Screen' Pages Required 

Mode 4 Screen 4 pages 

Mode 3 Screen 4 pages 

Mode 2 Screen 2 pages 

Mode 1 Screen 2 pages 

Mode Screen 1 page 

See what happens if you store the now famous (infamous) "Lines" screen 
on different pages. 

5 PMODE 1 ,1 

10 PCLS 

20 SCREEN 1 ,1 

25 LINE (0 »0)-(255»191) »PSET 

30 LINE (0 »191)-(255»0) »PSET 

40 GOTO 40 

Focus on PMODE. As you know, the first PMODE parameter tells the 
computer to start a Mode 1 screen. And, as Table 18-1 tells you, a Mode 1 
screen requires two pages. 

The second parameter tells the computer to start the screen on Page 1. 
Thus, the 2-page "Lines" screen is on Pages 1 and 2. 

To put the 2-page "Lines" screen on Pages 3 and 4, type: 

5 PMODE 1 ,3 

Run the program. This shows the same screen, but the screen is in on 
entirely different pages. 
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How about storing two screens — one on Pages 1 and 2, and another on 
Pages 3 and 4? Change Line 5, delete Line 20, and add Lines 27 and 28. 
What you end up with is this: 



5 PMODE 1 ,1 

10 PCLS 

25 LINE (0 , 



D- (255 * 19 1 ) >PSET 



27 PMODE 1 ,3 

28 PCLS 

30 LINE (0 * 191 >-(255>0> >PSET 

40 GOTO 40 



stores screen on 
Pages 1-2 

stores screen on 
Pages 3-4 



The first part of the program starts a Mode 1 screen on Pages 1-2.lt "clears" 
this screen and puts a line on it. 

The next part of the program starts another Mode 1 screen on Pages 3-4. It 
clears this screen and puts a line on it. 

Run the program and you won't see either screen, because there's no 
SCREEN statement. So add SCREEN: 

35 SCREEN 1 »1 

Now run the program and you see one screen— the one stored on Pages 
3-4. 

Whenever Color BASIC displays a screen, it uses your most recent PMODE 
instruction to tell it what the "current graphics screen" is. In this case, the 
most recent PMODE— PMODE 1,3— tells Color BASIC that the current 
graphics screen is a Mode 1 screen on Pages 3-4. 

Insert another PMODE line just before SCREEN, and Color BASIC displays 
a Mode 1 screen on Pages 1-2: 

32 PMODE 1 »1 

Just for kicks, have Color BASIC display a Mode 2 screen that starts on 
Page 2. Any guesses on what you'll see? Change Line 32 to PMODE 2,2 
and run the program. Since Mode 2 requires two pages, you see what's 
on Pages 2-3. And, since this is Mode 2, you see this screen in 2 colors 
with medium resolution. 



You may have noticed that 
all the graphics statements 
(LINE, PPOINT, PSET, PRE- 
SET, PCLS, SCREEN, and 
COLOR) produce graphics 
on the "current graphics 
screen." The most recent 
PMODE statement is what 
sets the current graphics 
screen. 



Flipping Screens 



As you know, animators make cartoons by drawing many still pictures and 
then "flipping" through them. 

So here's the moment you've been waiting for! This program flips screens 
to show two lines in motion: 



5 PMODE 1 ,1 

10 PCLS 

25 LINE (0 ,0>-(255>191 ) ,PSET 



27 PMODE 1 ,3 

28 PCLS 

30 LINE (0 ,191 >-(255>0> >PSET 



32 PMODE 1 ,1 
34 SCREEN 1 ,1 
3(3 FOR 1 = 1 TO 



10: NEXT I 



stores Page 1-2 screen 



stores Page 3-4 screen 



displays Page 1-2 
screen 



Did you know that it takes 
more than 12,000 individual 
drawings to make just one 
7-minute cartoon? Wouldn't 
a computer be a help there! 
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38 PMODE 1 ,3 
40 SCREEN 1 ,3 
42 FOR 1=1 TO 

44 GOTO 32 



NEXT I 



displays Page 3-4 
screen 



Adding Pages 



You can use a maximum of 8 pages of graphics memory — Pages 1-8. 
However, when you first start up, Color BASIC gives you only half that 
amount — Pages 1-4. For example, make this change to "Lines": 

5 PMODE 1 ,a 

Run "Lines" and you get a ?FC Error. You're asking Color BASIC to use 
Pages 4-5, but Page 5 is not available! 

To remedy the problem, insert Line 4 and you now have all 8 pages. 
4 PCLEAR 8 

PCLEAR lets you reserve from 1 to 8 pages of memory. If you use 
PCLEAR, it needs to be your program's first or second statement (after 
CLEAR, if you use CLEAR): 

PCLEAR pages reserves pages of graphics memory 

pages is the amount of graphics memory to reserve (0-8) 

On startup, the computer automatically reserves 4 pages. Use PCLEAR 
to reserve more or fewer pages. 



If you ever have a con- 
flict between program 
memory requirements and 
video memory require- 
ments, you'll get a ?OM 
ERROR (Out of Memory). 



You may wonder why we don't use PCLEAR 8 all the time. The reason: 
PCLEAR 8 decreases program memory. Sometimes you need more 
program memory; other times you need more graphics memory. PCLEAR 
sets the balance. 



Up and Down, Up and Down 

You probably think your computer is a little crazy, but now we'll prove that 
it's a real yo-yo. In fact, you can call this program "Yo-Yo." Enter and run 
it. 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 



PCLEAR 8 
FOR P=l TO 
PMODE 0,P 
PCLS 

LINE (128, 
CIRCLE (12 
NEXT P 
FOR P=l TO 
FOR P=7 TO 
GOTO 80 
PMODE 0,P 
SCREEN 1 ,0 
FOR T=l TO 
RETURN 



8 



0>-( 138 ,10+(P- 
8 ,P*15) ,15 



1 )*15) ,PSET 



8:G0SUB 110:NEXT P 
1 STEP -2:G0SUB 110: 



10: NEXT T 



NEXT P 
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With the exception of CIRCLE (see the next chapter), you've already 
learned all the features used by this program. 

PCOPY 

Using PCOPY ("page copy") you can copy one page of graphics memory 
to another. Here is the format for PCOPY: 



PCOPY pagel TO page 2 copies pagel to page2 



For example, if you want to copy Page 3 to Page 8, type: 

PCOPY 3 TO B 
One advantage of PCOPY is it can shorten your programs by eliminating 
repetition. 

Keep in mind PCOPY copies one graphics' memory page. Unless you're in 
Mode 0, this is not one screen. For example, in Mode 4, the above 
statement copies only one-fourth of a screen. 

DO-IT-YOURSELF PROGRAM 18-1 

The following program displays 4 squares that are on 4 different 
memory pages on the screen at the same time. Run it, and then shorten 
the program using PCOPY. 

IX PCLEAR 8 
5 PMOOE 3 »4 

10 PCLS 

11 SCREEN 1 ,1 

12 LINE (110 »20)-<120 »30) tPSET ,B 

20 PMOOE 3 t3 

21 SCREEN 1 »1 

22 LINE (110 »20)-( 120 »30) tPSET »B 

30 PMOOE 3 >2 

31 SCREEN 1 tl 

32 LINE (110 t20)-(120 t30) tPSET tB 

d0 PMOOE 3 ,1 

ai SCREEN 1 ,1 

aZ LINE (110 »20)-(120 »30) tPSET »B 

50 GOTO 50 
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DO-IT-YOURSELF PROGRAM 18-2 

Using LINE and start page, simulate a lightning storm. (Put "crazy 
lines" at random positions on different pages. Then switch back and 
forth between pages.) 



Learned in Chapter 18 

BASIC WORDS CONCEPTS 

PCLEAR Reserving pages for graphics 

PMODE Selecting a start page 

Flipping pages to simulate motion 

PCOPY Copying graphics from one page to another 



Notes 
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CHAPTER 19 

GOING IN CIRCLES 

Does a!! this talk about SCREEN, PMODE, and PCLEAR have you going in 
circles? If so, you haven't seen anything yet! 

For example, you can create a full circle or ellipse, or a partial circle or 
ellipse using a single statement, CIRCLE. Here is the syntax of CIRCLE: 




CIRCLE (h,v),r,c,hw,start,end draws a circle on the current graphics 
screen 

h is the horizontal position of the centerpoint (0 to 255). 

v is the vertical position of the centerpoint (0 to 191). 

r is the radius in screen points. 

c is any available color (0-8). If you omit c, the computer uses 

the foreground color. 
hw is the height to width ratio (0 to 255). If you omit hw, the 

computer uses 1 . 
start is the starting point (0 to 1 ). If you omit start, the computer 

starts at 0. 
end is the ending point (0 to 1 ). If you omit end, the computer 

uses 1 . 

If the start point is equal to the end point or if you omit both the 
start and the end, the computer draws the complete 
ellipse. 



To draw a circle, you need only the centerpoint (h,v) and the radius (r), 
which is the distance from the center in points. 

First, count over on the h-axis, then down on the v-axis to locate the 
desired center. Then, once you specify that point, indicate the circle's 
radius. The largest radius that fits on the screen is 95. If the radius is larger 
than 95, the circle "flattens" against the edges of the screen. 

Bring your "Lines" program back into service. 

5 PMODE 1 »1 

10 PCLS 

20 SCREEN 1 »1 

25 LINE (0 >0) - (255 1 191 ) >PSET 

30 LINE (0 1 191 )-<255»0> »PSET 

40 GOTO 40 
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Your program should read: 


5 


?MODE i .1 




10 


PCLS 




20 


SCREEN 1 .1 




30 


CIRCLE (128 
.95 


»9B> 


40 


GOTO 40 





Delete Line 25 and change Line 30 as follows: 

30 CIRCLE ( 128 ,SG) ,S5 

Run the program. Your TV should display a somewhat scruffy, orange 
circle on a buff background. Are you wondering why the circle isn't truly 
round? Look at Line 5 and you'll see; the computer is in Mode 1 (medium 
resolution). 

Change Mode 1 to Mode 4 (high resolution) as follows; 

5 PMODE 4,1 

10 PCLS 

20 SCREEN 1 ,1 

30 CIRCLE ( 128 ,SG) ,S5 

40 GOTO 40 

Run the program. Now that's a circle! (It should be a buff circle on a black 
background.) 



DO-IT-YOURSELF PROGRAM 19-1 

Using the program above, generate a bull's eye. You can do this one of 
two ways: 

Add a separate program line for each concentric circle but use a 
common center (h,v coordinate). 

Use a FOR ... NEXT loop with a STEP 1 to have the computer 
do the work for you. 



DO-IT-YOURSELF PROGRAM 19-2 

Do you still have the program for the house you built? How do you 
expect to get into the house without a doorknob? Use CIRCLE to put a 
doorknob on the front door. Your Graphics Screen Worksheet is 
helpful in locating the exact point you need. 

Note: If you use medium or low resolution, a circle small enough 
to serve as a doorknob does not have much detail. Run the pro- 
gram in Mode 4 for more detail. 



Coloring the Circle 



After you decide on the circle's radius, choose its color. Using 2-color 
mode, you haven't much choice, but using 4-color mode (Mode 1 or 3), 
you'll find the color option an exciting feature. 
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Your program should read: 

5 PMODE 1 »1 

10 PCLS 

20 SCREEN 1 »1 

30 CIRCLE ( 128 »9G) »95 

40 GOTO 40 

First, make the circle a more manageable size: 

30 CIRCLE ( 128 »9G) »30 
Now, for a little variety, change the color to cyan: 

30 CIRCLE ( 128 »9G) »30 »G 

It's as easy as that! In fact, you can change the circle's color to any of the 
available colors. 



Putting on the Squeeze 

Did you ever take a Hula-Hoop, bicycle tire, or buggy wheel and squeeze 
it with both hands to form an ellipse? 

Similarly, you can change circle on your screen into an ellipse by using the 
height/width ratio (hw) option. 




The width of the ellipse is equal to the radius. The height is determined by 
hw. If hw is 1 , the computer draws a circle. If hw is greater than 1 , it draws 
an ellipse that is higher than it is wide. If hw is less than 1, it draws an ellipse 
that is wider than it is high. For example, this program draws a circle: 

5 PMODE 4,1 

10 PCLS 

20 SCREEN 1 »1 

30 CIRCLE ( 128 »9G) »30 > >1 

40 GOTO 40 

If however, you change hw as shown here, the program draws a vertical 
ellipse: 

30 CIRCLE ( 128 »9G) »30 » »3 
If you change hw as shown here, it draws a horizontal ellipse: 

30 CIRCLE (128»9G> ,30 > >,25 

If hw equals 0, then the "ellipse" becomes "infinitely" wider than it is 
high. In other words, it becomes a horizontal line. 

As hw increases past 1, the "ellipse" approaches a vertical line. 

Change Line 30 in the following ways and run the program: 

30 CIRCLE ( 128 »9G) ,30 > »0 

30 CIRCLE (128»9G> ,30 > ,100 



Notice that your CIRCLE 
statement does not include 
the color code. Omitting the 
code tells the computer to 
use the foreground color. 
You must include the com- 
ma, though, to indicate to 
the computer that you are 
omitting the c and that the 
number specifies the hw 
ratio. 



You could say the circle is 
finally on the straight and 
narrow path. 



When you use 0, imagine 
you're looking at a coin from 
the edge, and you'll have a 
good idea of what we mean. 
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From Start to Finish . . . 

Suppose you want to draw only part of a ellipse (an arc). To do this, you 
must list the ellipse's center point (h,v), its radius (r), and its height/width 
ratio (hw). If you wish, you may precede hw with the color (c). 

Note: To draw an arc, you must specify hw. For a normal arc, use 
hw 1. 

From the above information, the computer knows the location, width, and 
height of the ellipse. Now you can tell it how much of the ellipse to draw. 

To do this, specify the start of the arc (0 to 1 ) and end (0 to 1 ) of the arc, 
following the chart below. Keep in mind that the computer always draws 
clockwise. .75 




.25 
Suppose, for example, you want to draw this arc: 

-.75 




-.25 
To do so, use this statement: 

30 CIRCLE (128*96) ,30 .1 ». 25, .75 

Now change the statement to draw this arc: 

.75 




Is this your new Line 30? 

30 CIRCLE (128,96) ,30 ,1 , .75,. 25 



DO-IT-YOURSELF PROGRAM 19-3 
Has night fallen on the house you built? If so, you might want to shed 
some light on the subject by putting a crescent moon in the corner 
This requires two intersecting arcs and some trial and error on your 
part. ' 



DO-IT-YOURSELF PROGRAM 19-4 
Maybe it's cold, as well as dark, around your house. If so, build a fire in 
the fireplace and show smoke coming out the chimney. (Use CIRCLE 
to generate a spiral that simulates the smoke.) 
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Learned in Chapter 19 

BASIC WORDS CONCEPTS 

CIRCLE Drawing a circle or an ellipse 

Coloring a circle or an ellipse 
Drawing an arc 



Notes 
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CHAPTER 20 

THE BIG BRUSH-OFF 

You might think we've forgotten this is a Color Computer. So far, it's been a 
little dab here and a splotch or two there. You'll never create a masterpiece 
that way! Well, it's time to loosen up a little and paint the town, if not red, 
then at least a bright orange. 

The Extended Color BASIC graphics function PAINT lets you "paint" any 
shape with any available color. 




Here is the syntax for PAINT: 



PAINT (h,v),c,b paints the current graphics screen 

h is the horizontal position (0 to 255) of the point at which 

painting is to begin. 
v is the vertical position (0 to 191). 
c is the color (0 to 8). 
b is the border color at which painting is to stop (0 to 8). 



If the computer reaches a border other than that of the specified color, it 
paints over that border. 

Change the "Lines" program as follows: 

5 PMODE 3»1 



If 



PCLS 
SCREEN 
LINE ( 
LINE ( 
CIRCLE 
PAINT 



30 
40 
50 
60 
70 GOTO 70 



1 ,1 
»0)-(255 »131 ) »PSET 
»131 )-(255 ,0) »PSET 

( 128 ,36) »30 
(135,125) ,8,8 



Before you run the program, can you predict the results? Lines 30 and 40 
make the intersecting lines. Line 50 generates a circle the center of which is 
at the point where the two lines intersect. That part should be easy, but 
what about PAINT in Line 60? 
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If you guessed the computer goes to screen position (1 35,1 25) and paints 
with orange until the paint reaches an orange border, you're right! 

Delete Line 30 and then run the program. Now that you redefine the 
borders, the computer paints half the circle. 



DO-IT-YOURSELF PROGRAM 20-1 

Can you paint the entire circle? You can do this two ways. One 
involves adding a line; the other involves deleting a line. 



By the way, did you notice the computer's mode and color set? Mode 3 is a 
4-color mode, and Color Set 1 gives you buff, cyan, magenta, and orange. 

Stay in Mode 3, but change the color set (SCREEN 1,0) and run the 
program. Without changing any other lines, you should get a red circle 
(border) on a green background. 

To avoid confusion about color, change the PAINT color to fit the color set: 

60 PAINT ( 135 ,125) >2 »4 

Now when you run the program, the semicircle should be painted yellow 
(Code 2) until the computer encounters the red (Code 4) border. 



Remember, you can paint 
using only those colors that 
are available in your mode 
and color set. 



But you didn't specify red 
lines and red paint! Do 
you have any idea what 
happened? 



When the computer is in a 
4-color mode and you 
specify a color it can't sup- 
ply, the computer subtracts 
4 from Codes 5 through 8. 
(It interprets as 3.) 



DO-IT-YOURSELF PROGRAM 20-2 

Do you still have your house? It probably looks a little plain, maybe 
even shabby. Why don't you spruce it up with some paint? 



DO-IT-YOURSELF PROGRAM 20-3 

Add a garage to your house, then use PAINT to raise and lower the 
garage door. Since the painting action always goes up first, this takes a 
little refining on your part. Add a delay before and after the opening. 
(With CIRCLE, add the sun.) By the way, did you notice the computer's 
mode and color set? Mode 3 is a 4-color mode, and Color Set 1 gives 
you buff, cyan, magenta, and orange. 



Learned in Chapter 20 



BASIC WORDS 

PAINT 



CONCEPTS 

Painting any figure 
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Notes 
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CHAPTER 21 

DRAW THE LINE 
SOMEWHERE 

You already know how to create lines, ellipses, and boxes. Now how 
would you like to learn a shortcut for doing some of those things? The 
shortcut is DRAW, which lets you draw a line (or series of lines) by 
specifying direction, angle, and color — all in the same program line! Here 
is the syntax of DRAW: 




DRAW line draws a shape on the current graphics screen 

line is a string expression that may include the following motion j 
commands, modes, and options: 

Motion Commands 

M = Move the draw position j 

U = Up 
D = Down 
L = Left 
i R = Right 

E = 45-degree angle f 

F = 135-degree angle 

G = 225-degree angle 

H = 3 1 5-degree angle 

X = Execute a substring and return 

Modes 

\ 

C = Color 

A = Angle 
S = Scale 

Options 

N = No update of draw position 
B = Blank (no draw, just move) 

{ Note: If line is a string constant, you must enclose it in quotes. 

Always insert the B option directly before the M motion | 
command; otherwise, unwanted lines may appear. j 
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This program probably has 
replaced your dog as your 
best friend. 

5 PMODE 3d 

10 PCLS 

20 SCREEN 1 (1 

25 DRAW »BM128(9S! 

U25! R25S D25 I 

L25" 
40 GOTO 40 



To make the program easier 
to read, we've separated 
each motion statement with 
a semicolon (;). You 
needn't do this. You must, 
however, always separate 
the (b,v) coordinates with a 
comma (,). 



Earlier you learned how to create a box using LINE. To do this, you may 
have had to do some difficult figuring with the Graphics Screen Worksheet 
to locate the necessary start and end points. 

With DRAW, you have to locate only the start point and then tell the 
computer in which direction to draw and how far to do so. If you omit the 
start point, the computer starts at the last DRAW position or— if you 
haven't previously used DRAW — at the center of the screen. 

Use your "Lines" program to try out DRAW. Delete Line 30 and change 
Line 25 to the following: 

25 DRAW "BM128 »9G 5 U25 5 R25 5 D25 5 L25 " 

Presto! Can you guess why the square's lower left corner is at (128,96)? 
Look at the first two numbers inside the quotes. 

The motion command, M, tells the computer at which point to later begin 
drawing. 



M h,v tells the computer at which point to begin drawing 

h is the horizontal position (0 to 255). 
v is the vertical position (0 to 191). 

Note: Always preface M by the letter B; if you do not, 
unwanted lines appear. 

The above program tells the computer to start drawing at (1 28,96), draw up 
(U) 25 points, right (R) 25 more, down (D) 25 more points, and finally left 
(L) 25. 

Note: If you omit the line's length, the computer uses 1 as the 
length. 



Setting the Square on Edge 
(Diagonal Lines) 

Instead of drawing horizontal and vertical lines, stand the square on one of 
its corners. To do th is, substitute E, F, G, and H for U, R, L, and D in Line 25 : 

25 DRAW "BM128 »9G 5 E25 5 F25 5 G25 5 H25 " 

This DRAW starts at (128,96) too. Instead of going up, however, the first 
line angles off at 45 degrees; the computer draws the next 3 lines at their 
designated angles. 

If you are in Mode or 1 and use E, F, G, or H to generate a line that has an 
odd-number length and at least 1 odd-number coordinate (h,v), Lines F 
and H have a slight "hitch" at the midpoint. If both coordinates are 
even-numbered, Lines E and G have the "hitch." This is normal. 



DO-IT-YOURSELF PROGRAM 21-1 

You already know your computer is the star of the show, but can you 
prove it by drawing a star? Use the DRAW motion commands for both 
perpendicular and diagonal lines. 
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Absolute M v Relative M 

Suppose you draw a square and then want to draw another one nearby. 
You know exactly how far away you want the second square to be, but 
don't want to have to locate the coordinates {h,v). 

Another form of the M command lets you specify "relative" motion instead 
of "absolute" motion. So far, you have used absolute motion; you have 
specified points in terms of their coordinates (h,v). Using relative motion, 
you can specify points in relation to the current point (the point last drawn). 

Here's the syntax for relative motion: 



Absolute motion: "Co to 
the corner of 53rd Street 
and Bomber Lane." 

Relative motion: "Co 2 
blocks down, take a right, 
and go 1 more block!' 



Y sign h-offset, v-offset lets you specify points relative to the cur- 
rent point 

h-offset is the distance to move horizontally from the current 
position. If you precede it with a plus sign ( + ), the 
h-position increments by the specified amount. If you 
precede it with a minus sign (-), the h-position 
decrements. 

v-offset is the distance to move vertically from the current. If you 
precede v-offset with a plus sign ( + ) or if you omit the 
sign, the v-position increments by the specified amount. If 
you precede it with a minus sign (-), the v-position 
decrements. 



For example, if you wish to create a second box at a position relative to that 
of the first box in the (redefined) "Lines" program, you might add this line: 

30 DRAW "BM+15»15;U25;R25;D25;L25" 

When the computer executes Line 30, the current draw position is 
(128,96), which is the the last draw position in Line 25. So the lower left 
corner of the new square is at (238 + 1 5,96 + 1 5) or (255,1 1 1 ). 

Change Line 30 as follows: 

30 DRAW "BM+15 , - 1 5 SU25 5R25 ID25 5 L25 " 

Run the program. The start point of the new square is (1 28 + 1 5,96-1 5) or 
(143,81). 



DO-IT-YOURSELF PROGRAM 21-2 

After all this heated activity, you're probably ready to cool off, so why 
don't you use DRAW to create an ice cube? 

You can generate the entire cube using DRAW, or you can incorporate 
a couple of LINE commands within the program. Try to use both 
absolute and relative motion. 



Tipping the Scales 

What if the figures you draw turn out to be too big or too small? 

The solution's easy. Your computer has a built-in function that lets you 
"scale" (up or down) any display generated by DRAW. All you have to do 



When you use the scale- 
down option, the computer 
rounds the resulting line 
length to the nearest whole 
number, if it is not already 
a whole number. 



For example, "S2U25R25D 
25L25" results in a 12-1/2 
x 12-1/2 square. The com- 
puter draws a 13 x 13 
square. 
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is use the Sx command in the string. 



Sx lets you scale a display 

x is a number in the range 1 to 62 that indicates the scale 
factor in units of 1/4 as shown here: 



1 


= 1/4 scale 


2 


= 2/4 scale 


3 


= 3/4 scale 


4 


= 4/4 (full) scale 


5 


= 5/4 (125%) scale 


8 


= 8/4 (double) scale 


12 


= 12/4 (triple) scale 


etc 





If you omit x, the computer uses 4 (4/4 = 1) 



After you enter an Sx command, the computer scales all absolute and 
relative motion commands accordingly until you enter another. 

Make your refined "Lines" draw a single square again. Do this by deleting 
Line 30 and changing Line 25 as follows: 

25 DRAW "SZiFMiZS ,96 5U25 5R25 i D25 5L25 " 

Run the program. The square in the lower left corner should be half the size 
you specified. 

To see how small or large a square can be, run the following program: 

5 PMODE a, I 

10 PCLS 

20 SCREEN 1 »1 

25 FOR SCALE = 1 TO B2 

30 S$ = "S" + STR$(SCALE) + "!" 

35 DRAW S$' + "51110 > 1 00U20R20D20L20 " 

40 NEXT SCALE 

50 GOTO 50 

Don't make the mistake of thinking that the smallest square is the one 
specified in Line 35. The one we specified is the fourth one from the edge. 




Color Me . . . 

DRAW'S C option lets you specify the color of a particular line. 
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First, list the "Lines" program: 

5 PMODE 3.1 

10 PCLS 

20 SCREEN 1 ,1 

30 DRAW "S2iBM128»9BiU25iR25iD25iL25" 

40 GOTO 40 



Go back to full scale either by changing S2 to S4 or by deleting S2. Then, 
just inside the first set of quotation marks in Line 30, insert: 

CB 

Run the program. Does it display a cyan square on a buff background? 

Replace the C6 (in program Line 30) with C8 and run the program. Did the 
square turn orange? 

C must take the following form: 



Cx lets you specify a line's color 

x is the color code (0 to 8). If you omit x, the computer uses the 
foreground color. 



You can insert Cx anywhere inside the DRAW statement. All actions that 
follow are the color you specify. For instance, change Line 30 to read: 

30 DRAW "C8i BM128»9BiU25iR25i 
CBi D25iL25" 

Run the program. The program displays a 2-color square. The first 2 lines 
drawn are orange. The second 2 are cyan. 



If you want to "erase" a 
line, draw another line on 
top of it using the back- 
ground color. 



What's Your Angle? 



Another option that is available with DRAW is A. This option lets you 
specify the angle at which a line is to be drawn. After you include A in the 
DRAW command, the computer draws all subsequent lines with the angle 
displacement specified by Ax until you specify otherwise. 

Your program should now read: 

5 PMODE 3.1 

10 PCLS 

20 SCREEN 1 ,1 

30 DRAW "C6iBM128 .96 !U25i 

R25 5D25 ;i_25" 
40 GOTO 40 
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Here is the syntax for the A command: 

Ax lets you specify the angle of a line 

x is the angle code (0 to 3). All angles are measured clockwise. 

= degrees 

1 = 90 degrees 

2 = 180 degrees 

3 = 270 degrees 

if you omit Ax, the the computer uses A0. 

To illustrate this, change program Line 30 to read: 

30 DRAW "A0 ;BM128 »9GiU25" 

Run the program. Your screen displays a vertical line that is 25 points long. 
Now change Line 30: 

30 DRAW "Al ;BM128 »9G;U25" 

Run the program. The line is now horizontal. 

Just Shootin' Blanks 

If you want the next line you draw to be a "blank" or an invisible line, 
include the B option. 

For example, let's say you are drawing letters of the alphabet and are ready 
for the letter C, which is nothing but a square with the right side blank. 
Change Line 30 as follows so the program generates such a figure: 

30 DRAW "BM128 »9G;U25iR25 !B !D25SL25" 

Run the program. Remember, only the line immediately following the B is 
blank. 



DO-IT-YOURSELF PROGRAM 21-3 

Print your name on the screen using DRAW. This means you'll have to 
stay in the graphics screen. Sure, it would be easier to write your name 
on the text screen, but you can't have "true" text and graphics at the 
same time. 



What! More Options? 

Another of DRAW's many features is N, the "no update" option. N tells the 
computer to return to its original (current) position after it draws the next 
line. To see this, change Line 30 to read: 

30 DRAW "M128»9Gi N5 U25 5 N5 R25 ? Ni 
D25? Ni L25 5" 

Run the program. The computer draws a 25-point line straight up from 
(1 28,96). It then returns to (1 28,96), draws the next line, returns, draws the 
next, and soon. Asa result, four lines radiate from the center of the screen, 
each in a different direction (up, right, down, and left). 
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DO-IT-YOURSELF PROGRAM 21-4 

Using DRAW'S N option (and CIRCLE), have the computer draw a pie 
that has 8 pieces. Once you've done that, cut out a piece of the pie and 
put it over to one side. 



String Constants v String Variables 

As stated earlier, the string following DRAW can be either a constant — as 
in the previous examples — or a variable. 

To use a string variable, precede the DRAW statement with a program line 
that identifies the variable as a string; then substitute the string for the 
quoted material in DRAW. For example, add Line 25 and change Line 30 
as follows: 

25 A$="BM128 ,9G 5 CS 5 U25 5 R25 5 D25 5 L25 " 
30 DRAW A$ 

Run the program. The computer displays an orange box (25 x 25), the 
lower left corner of which is in the center of the screen. 

Extended Color BASIC offers a variation on this, called the "execute" (X) 
action. While you execute a DRAW routine, the execute action lets you 
execute another DRAW string, then return to and complete the first 
operation. To do this, leave Line 25 as is so that it defines A$; then change 
Line 30. The two lines read: 

25 A$="BM128 ,9(3 i C8 5 U25 5 R25 ; D25 5 L25 " 

30 DRAW "BM35t50iU25iR25i XA$ i D25?L25" 

Run the program. The computer starts drawing at (95,50) a line that 
extends up (U25) and then right (R25). It then executes A$ so that it draws a 
25 x 25 square, starting at (128,96). After executing A$, it returns to the 
original (current) string and completes its execution (D25,L25). 



Does that mean it's 
drawstring? 



A semicolon must always 
follow the dollar sign (even 
though the other semi- 
colons are not necessary): 

xa$;xx$;xc$ 



DO-IT-YOURSELF PROGRAM 21-5 

Do-lt-Yourself Program 21-3 shows that you can simulate text (let- 
ters) on the graphics screen by drawing the letters. Use DRAW to 
create all 26 letters of the alphabet. Store the DRAW commands in 
strings. Then use the "execute" (X) action to arrange the letters into 
words. 



DO-IT-YOURSELF PROGRAM 21-6 

Do you still have your house? If so, load the program again and use 
DRAW to make the front door open and close. 
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Learned in Chapter 21 

BASIC WORDS CONCEPTS 

DRAW Drawing visible lines 

Drawing invisible (blank) lines 

Scaling figures to size 

Coloring lines 

Returning the draw to its original position 

Using string variables to draw 

Executing a second draw in the middle of the 

firsr 

Notes 
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CHAPTER 22 



GET AND PUT: 

THE DISPLAY WENT 

THAT ARRAY 



In previous chapters, you've learned a few ways to move figures from one 
screen to another, but none is very efficient. Have no fear; there is a better 
array (groan). It has to do with GET and PUT. 

Using these statements, you can "get" a rectangular area from the screen, 
store its contents in an "array" (an area of memory), and then "put" it back 
anywhere you want on the screen. This is the best method for simulating 
motion. 




A who? A what? Arrays are 
covered in Part III, later in 
this manual. 



We use the term "rectan- 
gle" to refer to the area 
that contains the graphic 
display. Of course, you 
can't actually see the rec- 
tangle. You'll have to visu- 
alize it. Here's an 
illustration to help you: 



The formats for GET and PUT are: 



GET hl,vl-h2,v2, array, G gets a rectangle from the current graph- 
ics screen and stores it in an array 

hl,vl is the rectangle's upper-left corner. 

h2,v2 is the rectangle's lower-right corner. 

array is an area in memory that stores the rectangle. 

G stores the array in full graphic detaiJ. It is required when 
using high resolution (Mode 4 or Mode 3 with colors) 
or when using the PUT action parameters. Otherwise, 
garbage appears on your screen. 



PUT hl,vl-h2,v2,array,action puts a rectangle, stored in an array, 
on the current graphics screen 

hl,vl is the rectangle's upper-left corner. 
h2,v2 is the rectangle's lower-right corner. 
array is an area in memory where the rectangle is stored. 
action (shown on Table 22-1) tells the computer what to do 
with the points stored in the rectangle. 

Note: Be sure the computer is in the same PMODE for GET 
as it is for PUT. Otherwise, you may not "put" what you 
"got." 
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Type and run this program to see how GET and PUT work: 

5 PCLEAR 4 

10 PMODE 3 ,1 

15 PCLS 

20 SCREEN 1 ,1 

25 DIM U(20»20) 

30 CIRCLE (20 ,20) ,10 

35 GET ( 10 tl0)-(30 ,30) ,K> 

40 PCLS 

42 FOR DLAY = 1 TO 300: NEXT DLAY 

45 PUT (110 fll0)-( 130 tl30) tY 

50 FOR DLAY = 1 TO 300: NEXT DLAY 

G0 GOTO G0 

The program draws a circle on one part of the screen and then moves it to 
another. To do this, the computer: 

1. Creates an array named V in memory (Line 25). Array Vis big enough 
to store a 20 X 20 rectangle. 

2. Draws a circle on the screen (Line 30). 

3. Gets a 20 X 20 rectangle containing the circle and stores it in the 
Array V (Line 35). 

4. Clears the screen (Line 40). 

5. Puts the 20 X 20 rectangle (stored in Array V) back on the screen. 

Storing the Rectangle 

As you can see from the above program, GET and PUT use an array to store 
the rectangle. So, before you use GET or PUT, you need to create this array. 

The DIM statement lets you do this. 



DIM arraytfength, width) creates an array for storing a rectangle 
the size of length X width points 

Note: DIM should be one of the first lines in your program (after 
CLEAR and PCLEAR, if you use them). 



How large a rectangle you 
can store in an array de- 
pends on how much mem- 
ory you have. Each point, 
when stored in an array, 
consumes 5 bytes of mem- 
ory. In a 16K RAM system, 
you can store no more than 
1400 points in an array. If 
your program is long, you 
may have to use a smaller 
array. 



How large does the array need to be? This depends on how large a 
rectangle you want to "get" or "put": 



Width = h.2 - 
Length = v2 



hi 
v1 



For example, the above program's GET statement uses (1 0,1 0) and (30,30) 
to specify a rectangle. Thus, the rectangle is 20 X 20: It has a width and 
length of 20. The PUT statement uses the same size rectangle: 20 X 20. 

Put Not What You See 



You've now put a rectangle on the screen one way — with the PSET ac- 
tion. (When you don't specify another action, the computer uses PSET.) 
There's more than one way, though, to put rectangles on the screen. 
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To see how the other actions work, start by running this program. It puts 15 
rectangles on the screen with the PSET action. 



5 

10 

15 



25 
30 
35 
40 
45 
50 
55 
60 
65 
70 



PCLEAR a 
DIM y (30,30) 
PMODE 2 ,1 
PCLS 

SCREEN 1 ,1 
CIRCLE ( 128 ,96) ,30 
PAINT ( 128 ,95) ,2 ,4 
PAINT ( 128 ,97) ,3 ,4 
GET (98 ,81 ) -( 128 ,111) ,M ,G 
PCLS 

FOR I = 150 TO 1 STEP -10 
PUT (I,81-I/5)-( 1+60 , 1 11-1/5) ,M ,PSET 
NEXT I 
GOTO 70 



PSET sets and resets each point as it is in the array rectangle. Each rectangle 
it puts on the screen is the same as the one stored in the array. 

Now change Line 60 in various ways to try other actions. First, try PRESET. 
60 PUT ( I ,81-I/5)-( 1+60 ,111-1/5) ,Y, PRESET 

PRESET sets and resets the reverse of each point in the array rectangle. Each 
rectangle it puts on the screen is the reverse of the one stored in the array. 

Try the OR action: 

60 PUT ( I ,81-I/5)-( 1+60 ,111-1/5) ,M,0R 



OR sets each point that's either (1) set in the array rectangle or (2) already 
set in the position where it's putting the screen rectangle. Each rectangle it 
puts on the screen has all points set that are stored in the array plus what is 
currently on the screen. 



For a strange effect, try the NOT action: 

60 PUT ( I ,81-1/5) -( 1+60 ,111-1/5) »y , NOT 

NOT sets and resets the reverse of what's on the screen. (NOT doesn't care 
what's stored in the array.) Each rectangle it puts on the screen is the 
reverse of the previous one. 

Try the AND option with this program, and you won't see anything: 
60 PUT ( I ,81-I/5)-( 1+60 ,111-1/5) ,\f , AND 



AND sets each point that (1) is set in the array and {2) is already set on the 
screen in the position where it's putting the rectangle. Any points that don't 
meet both of those conditions are reset. In this case, each rectangle AND 
puts on the screen has all points reset — you see nothing. 



If the computer puts garbage 
on your screen, perhaps you 
have omitted the G option 
with GET. 
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This is a summary of each action: 
Option Function 

PSET Sets each point that is set in the array. 

PRESET Resets each point that is set in the array; sets each 

point that is reset in the array. 

AND Compares each point in the array rectangle with the 

screen rectangle. If both are set, the computer sets 
the screen point; if not, it resets the screen point. 

OR Compares each point in the array rectangle to the 

screen rectangle. If either is set, the computer sets 
the screen point. 

NOT Reverses the state of each point in the screen rec- 

tangle regardless of the array rectangle's contents. 



DO-IT-YOURSELF PROGRAM 22-1 

Use GET and PUT to send a spaceship up the screen and across its 
"outer limits." You might want to add a few asteroids and aliens to 
make the voyage more exciting! 



Learned in Chapter 22 

BASIC WORDS CONCEPTS 

GET Storing a screen display in an array 

PUT Returning the display to the screen in either 

the same or a different position 

Determining the state of the returned points 
of the display 



Notes 
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CHAPTER 23 

A NEW KIND OF POINT 



As you recall from the SCREEN and PMODE chapters, your computer has 
two kinds of video memory — text and graphics. And it uses these two 
memories to create two kinds of screens — text and graphics. 

*!! the extended graphics statements (such as LINE, CIRCLE, PPOINT, and 
PMODE) create graphics screens using the massive power of graphics 
memory. This lets you draw exciting, high-resolution, and fast-moving 
images. 



There are two kinds of images, though, that you can't produce on a 
graphics screen: 

An image that uses all 9 colors (You can use no more than 4 colors on 
a graphics screen.) 

An image that uses text, as well as pictures (You cannot print text on a 
graphics screen.) 

To produce these kinds of images, you need to draw pictures on a text 
screen. Extended Color BASIC has 3 statements you can use for this 
purpose: 

SET — sets a dot on your text screen 

RESET — resets a dot on your text screen 

POINT — tells what color a dot is on your text screen. 

If these statements remind you of PSET, PRESET, and PPOINT, that's no 
accident. SET, RESET, and POINT perform the function on the text screen 
as PSET, PRESET, and PPOINT perform on the graphics screen. 

The analogy ends there, though. There are no text screen equivalents to 
such powerful statements as DRAW, PAINT, and PMODE. On a text 
screen, you can draw only one dot at a time. 

First make your screen black: 
10 CLS(0) 

Now set a dot — a blue one — on the top-left corner of your text screen. Type 
and run this program: 

20 SET(0»0»3) 
30 GOTO 30 

Set another dot — a buff one — on the bottom-right corner of your screen. 
20 SET(G3 ,31 ,5) 

As you may see, you do not use the 256 X 1 92 graphics grid to set dots on 
your text screen. Instead, you use a 31 X 63 grid called the SET/RESET grid 
(shown in the back of this book). 
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Setting Two Dots 



When you reset a dot on the 
text screen, the computer 
makes the dot black. 



To set two dots on a text screen, you need to plan. To find out why, run 
a few programs. First, type and run this: 



10 


CLB(0) 


20 


SET(32 ,14 ,3) 


30 


SET(33 »14>3) 


40 


GOTO 40 



You should now have two blue dots — side by side — in the middle of your 
screen. Change the color of the right dot so you'll have one blue and one 
red dot. Type: 

30 SET(33»14»4) 

Run the program again. This time, both dots are red. 

Look again at the SET/RESET grid. Notice that the darker lines group the 
dots into "blocks." Each block contains 4 dots. For instance, the block 
in the middle of the grid contains these 4 dots: 

Horizontal 
Position 32 

Position 33 

Position 32 

Position 33 

Each dot within a block must either be: 

the same color 
or 

black 

The above program asks the computer to set two different-colored dots (red 
and blue) within the same block. Since the computer can't set them in 
different colors, it sets them both the second color: red. 

Type and run this program: 

30 SET(34»14»4) 

Since the dot in Position 34, 14 is in a different block, the computer 
can set the two dots in different colors. 



Vertical 
14 
14 
15 
15 



The Computer's Face 



Drawing pictures on the text screen will seem primitive to you after using 
statements such as CIRCLE, DRAW, and PAINT. But if you want pictures 
and text, you can use the following program as a guide. 

Run this program, and you see computer's face and text on the same 
screen. SET and RESET draw the picture (using the SET/RESET grid) and 
PRINT @ prints the text (using the PRINT @ grid). 

5 CLB(0) 

7 PRINT @ 397 * "HELLO" ! 

10 FOR H = 15 TO 48 

20 BET(H »5 »5) 

30 BET(H»20,5) 

40 NEXT H 
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»50 FOR U = 5 TO 
G0 SET( 15 »M t5) 
70 SET(48 tV t5) 
80 NEXT V 

90 SET(32»13»8) 



20 



Notice we've changed Line 
50— the GOTO line. 



^ 



100 
110 
120 

130 
140 

150 
1G0 



FOR H = 28 to 
SET(H»1G»4) 
NEXT H 



3G 



SET(25 til 
SET(38 1 1( 



f3) 
f3) 



RESET(38 t li 
GOTO 140 



Notice that this program is able to draw 5 colors on one screen — and could 
actually draw all 9 colors. 

These are the formats of SET, RESET, and POINT: 



SET h,v,c sets a point on the text screen 

h is the horizontal coordinate (0-63) 
v is the vertical coordinate (0-31) 
c is the color code (0-8) 

RESET h,v resets a point on the text screen 

h is the horizontal coordinate (0-63) 
v is the vertical coordinate (0-31) 

POINT h,v tells what color a point is on the text screen 

h is the horizontal coordinate (0-63) 
v is the vertical coordinate (0-31) 



If You Have the Joysticks . . . 

If you have joysticks, connect them now by plugging them into the back of 
your computer. They fit in only the correct slots, so don't worry about 
plugging them into the wrong places. 

Now run this short program to see how joysticks work: 



10 
20 
30 
40 
50 



CLS 
PRINT 
PRINT 
PRINT 
PRINT 
G0 GOTO I 



@ t JOYSTK(0) ; 

@ 5, JOYSTKd ) ! 

@ 10 t J0YSTK(2) 5 

@ 15 t J0YSTKO) 5 



£=T\ 



Be sure to type the semi- 
colons at the ends of Lines 
20, 30, 40, and 50. 



See the 4 numbers on your screen? They're the horizontal and vertical 
positions of the 2 joysticks' "floating switches." 

Grasp the right joystick's floating switch. (The joystick connected to the 
RIGHT JOYSTICK jack on the back of the computer.) Keeping it in the 
center, move it from left to right. The first number on the screen changes 
from to 63, going through all the intervening numbers. 
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^ 



The second or fourth num- 
ber may change also, but not 
from to 63. 



Move the left joystick's floating switch from left to right. The third number 
on the screen changes. 

Now move the floating switches up and down, keeping them in the center. 
Moving the right joystick up and down changes the second number from 
to 63. Moving the left joystick up and down changes the fourth number 
from to 63. 

This is how the computer reads the joysticks' positions: 

JOYSTK(O) and JOYSTKO) read the right joystick's positions: 

JOYSTK(O) reads the horizontal (left to right) coordinate. 

JOYSTKO) reads the vertical (up and down) coordinate. 
JOYSTK(2) and JOYSTK(3) read the left joystick's positions: 

JOYSTK(2) reads the horizontal coordinate. 

JOYSTK(3) reads the vertical coordinate. 

Whenever you read any of the joysticks, you must read JOYSTK(O). To find 
out for yourself, delete Line 50 and run the program. It works almost the 
same, except it doesn't read JOYSTK(3) — the vertical position of your left 
joystick. 

Delete Line 20 and change Line 60: 

60 GOTO 30 

Run the program. Move all the switches around. This time the program 
doesn't work at all. The computsr won't read any coordinates unless you 
first have it read JOYSTK(O). Type these lines and run the program: 

20 A = JOYSTK(0) 
60 GOTO 20 

Although the computer's not printing JOYSTK(0)'s coordinates, it's still 
reading them. Because of this, it's able to read the other joystick 
coordinates. Whenever you want to read JOYSTKO ), JOYSTK(2), or 
JOYSTK(3), you first need to read JOYSTK(O). 



Painting with Joysticks 



Type and run this program: 



This program uses joysticks 
with text screen pictures. 
You can just as easily use the 
joysticks with graphics 
screen pictures. 



10 


CLS(0) 


20 


H = JOYSTK(0) 


30 


V = JOYSTK ( 1 ) 


40 


IF U > 31 THEN 


80 


SET(H >K> ,3) 


90 


GOTO 20 



32 



Use the revolving switch of your right joystick to paint a picture. (Move the 
switch slowly so that the computer has time to read its coordinates.) 

Line 20 reads H — the horizontal position of your right joystick. This can be 
a number in the range to 63. 

Line 30 reads V — its vertical position. This also can be a number in the 
range to 63. Since the highest vertical position on your screen is 31 , Line 
40 is necessary: It makes V always equal a number in the range to 31 . 
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Line 80 sets a blue dot at H and V. 

Line 90 goes back to get the next horizontal and vertical positions of your 
joysticks. 

This uses only the right joystick. Perhaps you could use the left one for 
color. Add these lines and run the program: 

50 C = JOYSTK (2) 

B0 IF C < 31 THEN C = 3 

70 IF C > = 31 THEN C = 4 

80 SET(H»U»C) 

Move your left joystick to the right, and the computer makes C equal to 3; 
the dots it sets are red. Move it to the left, and the computer makes C equal 
to 4; the dots it sets are blue. 

Want to use your joystick buttons? Add these lines to the program: 

100 P = PEEK<65280> 
110 PRINT P 
120 GOTO 100 

Now type: 



RUN 100 (ENTER) 

This tells the computer to run the program starting at Line 100. Your 
computer should be printing either 255 or 127 over and over. 

PEEK tells the computer to look at a certain spot in its memory to see what 
number's there. Line 1 00 looks at the number in Position 65280. As long as 
you're not pressing either of the buttons, this spot contains the number 255 
or 127. 

Press the right button. When you press it, this memory location contains 
either the number 126 or 254. 

Press the left button. This makes this memory location contain either the 
number 125 or 253. 



If you press the buttons 
when you're not running 
the program, you'll see 
@ABCDEFC or HIIKLMNO. 




Using this information, you can make the computer do whatever you want 
when you press one of the buttons. We'll make it go back to Line 1 and 
CLS(0) (clear the screen to black) when you press the right button. Change 
Lines 110 and 120: 



1 1! 
12! 



IF 
IF 



12B THEN 11 
254 THEN 1( 



Delete Line 90 and add this line: 

130 GOTO 20 

Run the program and start "painting." Press the right button when you 
want to clear the screen and start again. 



Some joysticks will not read 
six "blocks" in each of the 
four corners of your screen. 
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Learned in Chapter 23 



BASIC WORDS 

SET 

RESET 

JOYSTK 

PEEK 



Notes 
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CHAPTER 24 



PLAY IT AGAIN, TRS-80 

So you think your computer is a good artist, huh? Well, you haven't heard 
anything yet! Wait until you find out about its musical talents! Ready? Then 
let's get down to work and PLAY. 

Your computer's PLAY function allows you not only to play music, but to 
compose it, as well. 




Note: PLAY, of course, is not a graphics function. Therefore, you needn't 
preface your programs with PMODE, PCLS, or SCREEN. 



Listen Carefully 



Here is the syntax for PLAY: 



PLAY music plays the value of music, a string expression including 
the following: 

note (a letter from "A" to "G" or a number from 1 to 12). 
octave (O followed by a number from 1 to 5). If you omit 

the octave, the computer uses Octave 2. 
note-length (L followed by a numeral from 1 to 255). If you 

omit the note-length, the computer uses the current 

length, 
tempo (T followed by a number from 1 to 255). If you omit 

the tempo, the computer uses T2. 
volume (V followed by a number from 1 to 31). If you omit 

the volume, the computer uses V15. 
pause-length (P followed by a number from 1 to 255). 
substrings. Precede substrings with an X and follow them 

with a semicolon. Example: XA$; 
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Let's Compare Notes 

(NOTE) 

Obviously, you can't have music without notes. PLAY gives two ways to 
specify the precise note you need. 




The first — and probably easier — way to play the note you want is to enter 
one of the standard musical notes — A, B, C, D, E, F or G. To indicate a 
sharp note, follow the note with a plus sign ( + ) or with the pound sign (#). 
To indicate a flat, follow it with a minus sign (-). 

For example, A represents A natural; A# is A sharp; and A - is A flat. Type 
the following to see (hear?) what we mean: 



PLAY "A" (INTER) 
To hear the change that a sharp and a flat can make, enter these lines: 



PLAY "AH Aw" (INTER) 

play "A- ;a;a»;a;a-" (Inter) 

You can do the same with all seven notes (A-G) on the scale, except B and 
C. Since B# = C, you must use C. Likewise, since C- =B,you must use B. 



A New "Note"-ation 

Another way to specify a musical note is to use a number between 1 and 
1 2, prefaced by the letter N. (If you omit N, the number alone indicates the 
note.) 

The numbers 1 through 12 represent every note on the musical scale, 
including all sharps and flats. This is a more concise notation, although it is 
more difficult to read if you already know the standard notation. 

Note: Since PLAY does not recognize the notation B# or C-, use the 
numbers 1 and 12, respectively, or substitute C for B# and B for C- . 

To hear the full 12-tone scale, run the "Scale" program, which follows. 
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5 CLS 

10 FOR N = 1 to 
15 PRINT "NOTE*' 
20 PLAY STR$(N) 
30 NEXT N 



12 'N 
5 N 



NOTE 



Add a delay in the program so you can compare the numbers to the notes 
as the scale goes up from 1 to 12 (C to B). 



25 FOR I 



1 TO 500: NEXT I 



Musical Note/Number Table 


Number 


Note 


1 


C 


2 


C#'D- 


3 


D 


4 


E--'D# 


5 


E/F- 


6 


F'E# 


7 


F#.'G - 


8 


G 


9 


G#'A- 


10 


A 


11 


A#/B- 


12 


B 



2 4 



9 11 




8 10 12 



DO-IT-YOURSELF PROGRAM 23-1 
Modify the "Scale" program so it goes down instead of up. 



Whole Notes, Half Notes, 
Quarter Notes . . . 

(NOTE-LENGTH) 

Because the "Scale" program does not specify note-length, the com- 
puter automatically uses quarter notes, the initial "current value." 

To choose the note-length, use L followed by a number from 1 to 255. The 
number 1 , for instance, denotes a whole note, 2 a half note, 4 a quarter 
note, 8 an eighth note, 16 a sixteenth note, and so on. 

In fact, you can use any number from 1 to 255. (Who ever heard of a 1/1 5th 
note?) 

Vary the note-lengths to produce a drum roll. Type: 



Did you time the notes to be 
sure they are four times as 
long? It's not necessary; the 
computer's internal clock 
did it for you. 



PLAY ' 


L2;a;l45A5a;l2;a;a" 


(ENTER) 


{.number 


Note-Length 


Note 


L1 


Whole note 


O 


L2 


Half note 


d 


L3 


Dotted quarter note 


d. 


L4 


Quarter note 


d 


L8 


Eighth note 


f 


L16 


1/16 note 


/ 


L32 


1/32 note 


J 


L64 
L255 


1/64 note 
1/255 note 


> 
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L2 indicates a half note; L4 a quarter note, so we played as follows: "half, 
quarter, quarter, half, half." 



play "Li; a;a*;a-" (enter) 

Notice that you needn't repeat the L option for each note. PLAY uses the 
current note value until you enter another L command to tell it otherwise. 

In fact, most PLAY options discussed in the rest of this chapter use a 
"current" value until you change them. 

Just for fun, try playing three 1/255 notes on A: 

PLAY "L255;a;A+;A-" (ENTER) 

Now that's staccato. 

Love That Dotted Note 

If you read music, you already know about "dotted notes." The dot tells 
you to increase the length of the note by one half its normal value. For 
example, a dotted quarter note is equal to a "3/8" note. 

You can play such a note by adding a period (.) or a series of periods 
(. . .) to the Lnumber. Each period increases the note-length by 1/2 its 
normal value. For example: 

L4. = 1/4 + 1/8 = a 3/8 note 

Try this: 

PLAY "L4. >A >L8>C >L4. > E > L8 > C > E > C 5 E > C > L4 5 A " 
(ENTER) 



Let's Go Up (or Down) an Octave or Two 

(OCTAVE) 

Our single octave (Octave 2) sounds fine, but, variety being the spice of 
music as well as Irish stew, it gets a little boring when played over and 
over (like a piano with only 12 keys). 



We bet you've heard of 
"turning down the stereo" 
but not "turning down the 
computer"! 




To change octaves, use the letter O followed by a number in the range 
1 to 5. (Any number out of this range results in an illegal function call 
error.) 

If you don't specify the octave, the computer automatically uses Octave 
2, which includes middle-C. Let's try to play a simple C scale: 



PLAY "CDEFGABAGFEDCBA" (ENTER) 
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What happened? G is the highest note in Octave 2, so when the com- 
puter reached A, it started over at the beginning of the octave. To get 
out into Octave 3, try this: 



play m cdefg;o3;abaoz;fedcba" (enter) 



Play It Again — Louder! 

(VOLUME) 

Sure, you can adjust the volume of your music by using the TV volume 
control, but who wants to sit by the set all of the time? Especially when the 
computer can adjust the volume for you. 

Your computer does this with the V (volume) feature. All you need to do is 
use V followed by a numeral between and 31 . If you don't specify the 
value of V, your computer automatically uses V15. 

The computer uses the current V value until you change it. 

Adjust the volume on your TV to a normal setting and run this short 
program: 



5 CLS 

10 PLAY "V5iAi 

U305A" 
20 GOTO 10 



ui0;a; y is ; a i yz0;a; vz5;a; 



Getting a headache? Press (BREAK) to get out of the loop. 

A Moment of Silence, Please 

(PAUSE) 

Maybe that last little program would be easier to listen to if all the notes 
weren't played together. Use the P (pause) feature for a few moments of 
silence between the notes and see if they sound better. 

To put a pause between notes, use P followed by a number from 1 to 255. 
Pause-lengths correspond to note-lengths with one important difference. 
You can't use dots (periods) with P. To compensate, just type a series of 
pauses. For example, to get a 3/8 pause, type P4P8. 

Change Line 10 in the last program to read: 

10 play "V5;a; pz; ui0;a; pz; y is ; a ; 
pz; uz0;a; pz; vz5;a; pz; v30;a; pz" 

Actually, a half note pause (P2) between all those As doesn't make them 
sound much better, but you should get the idea of how P works. 

It's Time to Pick Up the Tempo 

(TEMPO) 

Right now the test program looks like this: 
5 CLS 

10 play "V5;a;pz; vi0;a;pz; mi5;a;pz; 
mz0;a;pz; yz5;a;pz; u30;a;pz m 

Z0 GOTO 10 



We've left spaces between 
each volume/note combina- 
tion so you can read the 
line without difficulty. The 
spaces are not required. 



137 



A tempo that slow is almost 
enough to keep you 
awake — almost. 



It's passable, if not pleasurable, but the tempo (speed) is a little slow. You 
can increase or decrease the tempo with T and a number from 1 to 255. If 
you don't specify a tempo, your computer automatically uses T2. Start by 
slowing down the tempo of the program: 



10 



PLAY "Tl ; 
V20 5A5P2 5 



V5 5A5P2 5 V10 5AiP2 5 U15 5A5P2 5 
U25 5A5P2; U30;A;P2" 



Speed it up by changing T1 to T15. Now that's more like it. 

How about speeding it to the maximum, 255, and running the program. 
That didn't take long, did it? 



If you use machine-lan- 
guage to generate the music 
and "In" to slow the tempo, 
would your computer be a 
Slow-POKE? 



Executing the Substring 

(X) 

Remember DRAW'S execute (X) option? PLAY has a similar feature that lets 
you execute a substring, then return to the original string and complete it. 

The execute function takes the following form: 

XA$; 

A$ contains a sequence of normal play commands and functions. X tells 
the computer to PLAY A$. 

Rearrange the demonstration program so that it executes a substring: 



5 CLS 
10 A$ = 
20 B$ = 
30 C$ = 
40 PLAY 



"a;a#;a-" 

"055XA$;" 

"oi ;xa$;xb$; 
c* 



Run the program and follow its execution. 

Note: Whenever you use the execute function, a semicolon (;) 
must follow the dollar sign ($). In this example, you can delete all 
semicolons except those following the dollar sign. 

One Further Note . . . 

( + ,-,<,>) 

No, we're not going to spring a new note, like H or J, on you. We just have 
one final way you can use some of PLAY's options. With O (octave), V 
(volume), T (tempo), and L (note-length), you can use one of the following 
suffixes instead of adding a numeral: 



Suffix Purpose 

+ Adds 1 to the current value. 

- Subtracts 1 from the current value. 

> Multiplies the current value by 2. 

< Divides the current value by 2. 



Use the sample program to learn about these features. 

5 CLS 

10 PLAY "T2" 
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20 play "a;a#;a-" 

30 GOTO 20 

Notice that Line 1 sets the tempo. Run the program once just to get an ear 
for it. Nothing's changed; it's the same as always. Now insert T in Line 20. 

20 play "T+; a;a«;a- h 

Run the program. The plus sign automatically increases the value of T by 1 
each time Line 20 is played. From a slow start you can really begin to fly! 
Did you hear it shift gears somewhere around T100? 

Now reduce the tempo, using a minus sign (-): 

5 CLS 

10 PLAY "T255" 



20 PLA x i 



'T- ; a;a#;a- 



30 GOTO 20 

After a fast start, the computer finally manages to slow the tempo down to 
1 — one step at a time. 

Isn't multiplication faster than addition? In Line 10, reset the tempo to 2, 
change T in Line 20 to T>, and let it rip. 



10 PLAY "t; 



20 PLA X : 



'T>5 A5A#5A- 



You started out with T2, right? The computer multipled that value by 2 to 4, 
4 x 2 to 8, 8 x 2 to 16, and so on until it reached 255. 

You can slow the tempo down just as quickly by dividing the current 
tempo by 2 using "<." 

10 PLAY "T255" 

20 play "T< ; a;a«;a- h 

Remember, you can do the same thing with L, V, and O to change the 
note-length, the volume, and the octave. 



Roll Over, Beethoven 



After all the hard work you've done lately, you deserve to be serenaded. 




Here is the formula that 


/ou 


can use to 


calculate 


the 


note-length: 


note-length 


+ 


(note-length 


* number 


of 


dotsj/2 







Haven't you had days like 
that? You start at 255 and by 
the end of the day, you're 
hitting on one cylinder. 
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Are you familiar with all the PLAY functions? If so, watch them at work in 
the following program and see if you can name this tune! 
5 CLS 

100 a$ = "TSiCiEiFiLi ;g;p4;l.4;c;e;f;l.i ;g m 
105 b$ = "P4;l4;c;e;f;l2;g;e;c;e;li ;d" 

110 C$ = "P8iL^liEiEiD;L2. iC !L4 iC !L2 i E" 

115 d$ = "L«a ;g ;g ;g ;li ;f ;l^ ;e ;f m 

120 e* = "L2;g;e;l^;c;ls;d;d+;d;e;g;l^;a;li 

i03iC" 
"XA*;XB$;XC$i)(D$i)(E$i" 

x$ 
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130 



;<$ = 

PLAY 



Do you recognize that song? Dress it up a bit by adding these lines: 



We dropped the "C" from 
MARCHING in Lines 60 and 
70 so the lines can fit on the 
screen. 



10 
20 
30 
35 
40 
45 
50 
55 
B0 

B5 

70 



PRINT 

PRINT 

PRINT 

PRINT 

FOR X 

CLS 

PRINT 

PRINT 

PRINT 



9G , 
1B7 , 
232 , 
288 , 
1 TO 

128 , 
1G9 , 
192 , 



STRING* (32,"*") 
"WHEN THE SAINTS 
"GO MARCHING IN" 
STRING* (32,"*") 



500: NEXT 



'DH 
'OH 
'OH 



WHEN 
WHEN 
WHEN 



THE 
THE 
THE 



SAINTS' 
SAINTS' 
SAINTS 



GO MARCHIN IN' 

PRINT @ 224, ' 

NUMBER" 

PRINT @ 25B , ' 

IN" 



YES I WANT TO BE IN THAT 
WHEN THE SAINTS GO MARCHIN 



If you use PCLS3 to clear the 
graphics screen and then 
make the computer play a 
sad song, does that mean it's 
singing the blues? 



Run the program now and sing along with TRS-80. What? You liked it so 
much you want to hear it again. Okay, add these lines: 



TRS-80' 



150 


CLS 








1B0 


PRINT @ 


130, 


"PLA 


{ IT AGAIN, 


1B5 


FOR X = 


1 TO 


500: 


NEXT X 


170 


CLS 








175 


PRINT @ 


233 , 


"I'D 


BE GLAD TO 


180 


FOR I = 


1 TO 


500: 


NEXT I 


185 


GOTO 5 









DO-IT-YOURSELF PROGRAM 24-2 

Our rendition of "Saints" sounds fine, but it isn't true New Orleans 
style. Jazz it up to suit your own musical tastes. Try changing oc- 
taves or adding a few sharps or flats. 



DO-IT-YOURSELF PROGRAM 24-3 

Try some musical arrangements of your own. We've included sev- 
eral in the Sample Programs at the back of the book. 
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Learned in Chapter 24 



BASIC WORDS CONCEPTS 

PLAY Generating musical notes, including dotted 

notes 

Determining note-length 
Changing octaves 
Adjusting the volume 
Pausing between notes 
Changing the tempo 
Executing substrings 

Using suffixes to give values relative to the cur- 
rent value 



Notes 
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SECTION III 

GETTING DOWN 
TO BUSINESS 

This section deals with information you want to manage. For example, you 
may want to manage: 

Checkbook receipts 

Shopping items 

Tax records 

Inventory 

Addresses 

Records, books, or tape collections 

In this section, you'll learn how to store, update, sort, and analyze informa- 
tion to fit your own needs. 



THE REAL THING 



A special section showing displays 
created by programs in this book. 



Spiral 



There's a tunnel at the end of the 
tunnel. When you assign variables 
to CIRCLE, it's possible to create a 
spiral. This is one way you can sim- 
ulate smoke coming from the chim- 
ney of your house (see DO-IT- 
YOURSELF PROGRAM 19-4). 





Fantastic! 

DO-IT-YOURSELF PROGRAM 21-2 
shows you how to cool off with an 
ice-cube. Another way is to turn on 
the fan and watch it spin. And if 
you let this program run for a 
white, that's exactly what happens. 
See Sample Program #19 for a list- 
ing of this program. 




Box 

This is a 2-step process. First the 
cube (created by DRAW and 
PAINT) appears in its 3-dimensional 
form. After a short delay, the box 
unfolds so you can see all 6 of its 
sides. This uses DRAW, along with 
several LINE and PAINT statements. 
See Sample Program #8. 



Projection Studies 

Starting at the upper left and going 
down, you can see different views 
(top, front, side, and oblique} of a 
"block," You can also scale the first 
three views up or down using 
DRAW'S "Scale" feature. (Since the 
45-degree oblique view contains 
three LINE statements, it can't be 
scaled.) See Sample Program #7. 




In-Out 

When you assign variables to a 
COLOR and a LINE statement, this 
is one thing the computer might do 
with it. Take a look at Sample Pro- 
gram #5 to see how easy this is. 





Navaho Blanket 

Actually, the size of this makes it 
more like a muffler instead of a 
blanket, but you should be able to 
finish "weaving" it. Basically, the 
program uses only a couple of LINE 
statements that increment at speci- 
fied "steps" and a PAINT statement 
or two. Incidentally, this might help 
vou with DO-IT-YOURSELF PRO- 
GRAM 15-3. Sample Program #12 # 
gives you a complete program 
listing. 




After the Boom Is 
Over . . . 

These concentric circles (increment- 
ing at STEP 2) are used al the end 
of the "Timebomb" program (Sam- 
ple Program #18). Notice that 
when you use buff with high reso- 
lution, it appears to produce several 
colors, giving a metallic luster to 



Home, Sweet Home 

One of your exercises throughout 
this book is to "build" a house (see 
DO-IT-YOURSELF PROGRAMS 15- 
2 and 19-41. Here's one you might 
use as a model. In this instance, the 
garage door is up (using PAINT), 
the light is on, and the grass (gener- 
ated by RND, DIM, and PSET) is 
growing. 




Painted Lace 

This program requires DRAW state- 
ments, a few buckets of PAINT, and 
a lot of patience, Look at Sample 
Program #13 and you'll see the 
way it's done. 



1 


— 


' T 


. 1 


! ;d;| 


1- 




Open and Closed 
Cubes 

In DO-IT-YOURSELF PROGRAM 
21-2 you drew the closed cube. 
Now "open" it. 



( X 



Rolling in the Clover 

Sample Program #17 shows you 
how to create an eight-leaf clover. 
By changing the COS value in Line 
35 to 2, you can generate a four- 
leaf clover. What happens if you 
change the COS value to 1 I This 
program is a good illustration of 
PSET, SIN, and COS and a novel use 
ot pi. 



Random Graphics 

Random graphics are generated 
when you assign random iRNDl 
values to LINE, CIRCLE, COLOR, 
and PAINT and then let the com- 
puter take over. For a listing of this 
program, see Sample Program #11. 





Riding the Waves 

Here the computer uses PSET, SIN, 
and COS to draw sine/cosine waves 
and LINE to draw the H-V axes. 
Notice that each wave travels 360 
degrees (from + 1 80 to - 1 80) and 
that the H-axis increments 30 de- 
grees at each gradation. This is a 
good exercise in mapping (scaling 
down) a program to fit the TV 
screen. Sample Program #9 gives a 
complete listing of this program. 



CHAPTER 25 



TAPING 



Your first and foremost task is to store your information permanently on 
cassette tape. This, of course, requires a tape recorder. 




Ready to get organized? We'll start with your book collection. Here's a 
small list of books: 

1. WORKING 

2. CAT'S CRADLE 

3. SMALL IS BEAUTIFUL 

4. STEPPENWOLF 

If you've read your introduction manual, you know how to save BASIC 
programs on tape. To save information, you need a program that follows 
these steps: 



.-«»;..■•..;. --KS-' ,-a:-S"(W» .v~, .•'».■ 



STEPS FOR STORING INFORMATION ON TAPE 

1 . Open communication to the tape recorder so that you can output 
(send out) information to a file. 

2. Output all information to the tape recorder file. 

3. Close communication to the tape recorder. 



Start the program with this line: 

10 OPEN "0" » #-1 > "BOOKS" 

This "opens" communication to the tape recorder ("device #-1 ") so that 
you can "output" ("O") information. Whatever information you output, 
the computer stores on tape in a "file" named BOOKS. 

Now output the information. Type: 

15 CLS: PRINT "INPUT YOUR BOOKS- 

WHEN FINISHED" 
20 INPUT "TITLE"! T$ 
30 PRINT #-li T$ 
40 GOTO 15 



TYPE ■% a a ? 




l 



A "file" is a collection of in- 
formation — such as book ti- 
tles — stored under one 
name. 
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K 




CT-) 




( V 


The computer clears the 
screen after each title. 



Line 20 "prints" (outputs) your book titles — not to the screen, but to device 
# - 1, the tape recorder. 

Then close communications. Type: 

"XX" THEN 50 



25 
50 



IF T$ = n : 
CLOSE *-l 



The computer then closes communication to the tape recorder. 
Add three more lines to the program: 



PRESS PLAY AND 



1 CLS 

2 PRINT "POSITION TAPE 
RECORD" 

a INPUT "PRESS <ENTER> WHEN READY") R$ 

The program should now look like this: 



1 
2 

a 

10 

15 

20 
25 
30 
40 
50 



CLS 

PRINT "POSITION TAPE--PRESS PLAY AND 

RECORD" 



INPUT "PRESS <ENTER> WHEN READ X 
OPEN "0" > #-1 , "BOOKS" 
CLS: PRINT "INPUT YOUR BOOKS - 
WHEN FINISHED" 
INPUT "TITLE"! T$ 
IF T$ = "XX" THEN 50 
PRINT #-1 # T$ 
GOTO 15 
CLOSE #-1 



1 ; r$ 

TYPE 



Prepare the recorder. 

Connect the recorder. Your computer's introduction manual shows 
how. 

Position a tape in the recorder, and, if necessary, rewind the tape so 
you'll have room for recording. (If you're using a non-Radio Shack 
tape, position it past the starting leader.) 

Press the recorder's RECORD and PLAY buttons so that they are both 
down. 

Then run the program. As soon as you press (ENTER) , the cassette motor 
turns on: The computer is opening a "file" on tape and naming it BOOKS. 

The program then asks for titles. Type: 

TITLE? WORKING 
TITLE? CAT'S CRADLE 
TITLE? SMALL IS BEAUTIFUL 
TITLE? STEPPENWOLF 
TITLE? XX 



Each time you input a title, the computer prints it in a special place in 
memory reserved for the tape recorder. When you finish, the tape recorder 
motor turns on: The computer is printing all the titles to the recorder (Line 
30) and then closing communication with the recorder (Line 50). 



Your book titles are now all saved on tape in a file named BOOKS. To read 
them back into memory, use just about the same steps. 
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STEPS FOR INPUTTING INFORMATION FROM TAPE 

1. Open communication to a tape recorder so that you can input 
information from a file. 

2. Check to see if you're at the end of the file. 

3. Input information from the tape recorder file. 

4. Repeat Steps 2 and 3 until you reach the end of the file. 

5. Close communication to the tape recorder. 



To open communication, type 
60 



70 
80 



CLS; PRINT "REWIND THE RECORDER AND 
PRESS PLAY" 

INPUT "PRESS <ENTER> WHEN READY"? R$ 
OPEN " I" t »-l t "BOOKS" 



This opens communication to the tape recorder — this time, to input in- 
formation from the BOOKS file. 

To input information, add these lines: 

B$ 



30 

i@0 



INPUT »-l i 
PRINT B$ 



Line 90 inputs the first book title (B$) from the BOOKS file stored on tape. 
(The variable name you choose makes no difference.) Line 100 displays 
this title on your screen. 

To check for the end of the file and close the file, add these lines: 

85 IF EOF (-1 ) THEN 120 
110 GOTO 85 
120 CLOSE #-1 

Line 85 says if you are at the end of this file (in this case, the BOOKS file), go 
to 120 and close communication with the tape recorder. 

Note that EOF(-1 ) comes before the INPUT #-1 line. If it's after INPUT #-1 , 
you'll get an IE error — "input past the end of the file." 

List this last part of the program by typing LIST 60 - ( ENTER) . It should look 

like this: 

60 CLS; PRINT "REWIND THE RECORDER AND 

PRESS PLAY" 

70 INPUT "PRESS <ENTER> WHEN READY"? R$ 

80 OPEN "I" t #-1 , "BOOKS" 

85 IF EOF (-1 ) THEN 120 

90 INPUT #-1. B$ 
100 PRINT B$ 
110 GOTO 85 
120 CLOSE #-1 

Now run this part of the program. Type: 

RUN 60 (HUE) 

When you press (ENTER) , the recorder's motor comes on while the com- 
puter inputs items from tape. When finished, it displays the four items on 
your screen. 



Are you wondering what the 
-1 means? EOF returns a -1 
when you reach the end of 
the file. 



~^J 



Be sure to press only the 
PLAY button, Not RECORD. 
Also, be sure to rewind the 
tape. 



If your computer becomes 
"hung up" communicating 
with the tape recorder, you 
can regain control by press- 
ing the RESET button. It's on 
the back right-hand side of 
your keyboard. Then look 
for missing or mistyped lines 
in your program. 
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An Electronic Card Catalog 

Assume you need to change the program so it can also store the books' 
authors and subjects: 



TITLE 
Working 
Cat's Cradle 
Small Is Beautiful 
Steppenwolf 



AUTHOR 
Studs Terkel 
Kurt Vonnegut 
E. F. Schumacher 
Hermann Hesse 



SUBJECT 
Sociology 

Fiction 

Economics 

Fiction 



Start by changing the "output" part of the program (the first halt). Type 
these lines: 



26 INPUT "AUTHOR" 5 A$ 

28 INPUT "SUBJECT: S$ 

29 IF A$ = "XX" OR S$ 

30 PRINT *-i , T$ , A$ , 



"XX" THEN 50 



S$ 



Then change the "input" part of the program. Type these lines: 



90 INPUT #-1 , B$ , A$ t 5$ 

100 PRINT "TITLE :" B$ 

102 PRINT "AUTHOR :" fi$ 

104 PRINT "SUBJECT :" S$ 



Now take advantage of this organization. For example, have the program 
print a book list on any given subject. Add these lines: 



130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 



CLS 
INPUT 
PRINT 
INPUT 



"WHICH SUBJECT" 5 C$ 
"REWIND THE TAPE - PRESS PLAY" 
"PRESS <ENTER> WHEN READY"; E$ 

PRINT 



CLS: PRINT C$ " BOOKS" 

OPEN "I" > #-1 » "BOOKS" 

IF EOF (-1 ) THEN 230 

INPUT #-1 t B$ » A$ , S$ 

IF S$ = C$ THEN PRINT B$ > A$ 

GOTO 190 

CLOSE #-1 



Run the input part of the program by typing RUN 1 30 ( INTEH) . If you choose 
"fiction," this happens: 

WHICH SUBJECT? FICTION 
REWIND THE TAPE - PRESS PLAY 
PRESS < ENTER)- WHEN READY 



FICTION BOOKS; 

CAT'S CRADLE 
STEPPENWOLF 



KURT VONNEGUT 
HERMANN HESSE 
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DO-IT-YOURSELF PROGRAM 25-1 



Assume vou have these checks: 



NO. 


DATE 


PAYABLE TO 


ACCOUNT 


AMOUNT 


101 


5/13 


Safeway 


food 


$52.60 


102 


5/13 


Amoco 


car 


32.70 


103 


5/14 


joe's Cafe 


food 


10.32 


104 


5/17 


American Airlines 


vacation 


97.50 


105 


5/19 


Holiday Inn 


vacation 


72.30 



Write a program that outputs all the checks to tape. Then have it input 
them from tape so that you can type one account — such as food — and 
the computer will tell you the total amount you've spent on food. 



See "Sample Programs" in the Appendix for examples of how to store data 
on tape. 



Learned in Chapter 25 



BASIC WORDS 

OPEN 

CLOSE 

PRINT #-1 

INPUT #-1 

EOF 



BASIC CONCEPT 
data files 



Notes 
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CHAPTER 26 



IVI/ml ^lAWJl I ^1 vJ l^i v</f VIDIZIV3 



Have you tried to write programs to handle much information? If so, 
you'll be glad to know Color BASIC has an easy-to-manage way to keep 
track of information. 



r*g~ir*5n rjj 




Assume, for example, you want to write a program that lets you manage 
this information: 

ELECTION RESULTS 



District 


Votes 


for Candidate A 


1 




143 


2 




215 


3 




125 


4 




331 


5 




442 


6 




324 


7 




213 


8 




115 


9 




318 


10 




314 


11 




223 


12 




152 


13 




314 


14 




92 



Up to now, you've used variables to store information in memory. For 
example, to store the votes of the first three districts, type: 



143 (ENTER) 
215 (ENTER) 
125 (ENTER) 



But there's a better kind of variable you can use. Type: 



A( 1 ) = 
A(2) = 
A(3) = 



143 (ENTERl 
215 (ENTERl 

125 (ENTER) 



Each of the above variables has a "subscript" — (1), (2), and (3). Other 
than how they use the subscript, these variables work the same as any- 
other variables. To see for yourself, type both of these lines: 
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print a; b; 

PRINT A< 1 ) ! 



C (ENTEffi 

A<2) 5 A<3) (ENTIW) 



Now take a quick look and compare the two programs below. Both work 
the same: Program 1 uses "simple variables"; Program 2 uses "subscripted 
variables." 



PROGRAM 1 



10 

20 

30 

40 

50 

60 

70 

75 

80 

90 

100 

110 

120 

130 

140 

150 

1B0 

170 

180 

190 

200 

210 



DATA 1 
DATA 3 
DATA 2 
READ A 
READ F 
READ K 
INPUT 
IF Z>1 
IF Z=l 
IF Z = 2 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

GOTO 



L. • 

z = 
z = 
z = 
z = 
z = 
z = 
z = 
z = 
z = 
z = 

7 ; 



43 , 215 , 125 t 
24 t 213 > 1 15 > 
23 t 152 > 314 > 

> B > C > D > E 

> G > H > I > J 
.L.H.N 
"DISTRICT NO, 
4 THEN 70 

THEN PRINT A ' 

THEN PRINT B ' 

3 THEN PRINT C 

PRINT D 

PRINT E 

PRINT F 

PRINT G 

PRINT H 

PRINT I 

PRINT 



331 > 
318 > 
92 



442 
314 



THEN 
THEN 
THEN 
THEN 

8 THEN 

9 THEN 

10 THEN 

11 THEN 

12 THEN 

13 THEN 

14 THEN 
70 



PRINT 
PRINT 
PRINT 
PRINT 



(1-14)"5 



MOTES" 
MOTES" 
"MOTES 
"MOTES 
"MOTES 
"MOTES 
"MOTES 
"MOTES 
"MOTES 
MOTES 
MOTES 
MOTES 
MOTES 
MOTES 



PROGRAM 



10 DATA 143 , 215 t 125 . 331 

20 DATA 324 > 213 > 115 > 318 

30 DATA 223 > 152 , 314 . 92 

40 DIMAU4) 

50 FOR X = 1 TO 14 

(30 READ A(X) 

70 NEXT X 

80 INPUT "DISTRICT NO( 1 

85 IF Z > 14 THEN 80 

90 PRINT A(Z) "MOTES" 

100 GOTO 80 



442 
314 



14) 



Program 1 is cumbersome to write. Program 2 is short and simple to write. 
Enter and run Program 2. Here's how it works: 

Line 40 reserves space for a list of information— called an "array" 
named A — with 14 subscripted items. 

Lines 50 and 70 set up a loop to count from 1 to 1 4. Line 60 reads all 
14 votes into Array A: 



Actually, this leaves room 
for 15 subscripted items 
when you count as a sub- 



script. 



^J 
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The name of the array is A, 
The X or Z in parentheses 
refers to the subscript of one 
of the items. 



^ 



You don't need to study 
these programs if you're an- 
xious to move on. We're just 
showing some benefits of us- 
ing subscripted variables. 



Line 80 asks you to input a subscript, and Line 90 prints the item you 
requested. 

Now that you've stored information in an array, it's easy to manage it. For 
instance, you can add these lines, which let you change the information: 

92 INPUT "DO YOU WANT TO ADD TO THIS" 5 R$ 

94 IF R$ = "NO" THEN 80 

9G INPUT "HOW MANY MORE MOTES" 5 X 

97 A(Z) = A(Z) + X 

98 PRINT "TOTAL MOTES FOR DISTRICT" Z "IS 
NOW" A(Z) 

Or you can add these lines to display the information: 

72 INPUT "DO YOU WANT TO SEE ALL THE TOTALS" 5 

S$ 

74 IF S$ = "YES" THEN GOSUB 110 

100 GOTO 72 

110 PRINT "DISTRICT" , "UOTES" 

120 FOR X = 1 TO 14 

130 PRINT X , A(X) 

140 NEXT X 



150 RETURN 



A Second Array 



Assume you also want to keep track of a second candidate's votes 
Candidate B: 

ELECTION RESULTS 



istrict 


Votes for 


Votes for 




Candidate A 


Candidate B 


1 


143 


678 


2 


215 


514 


3 


125 


430 


4 


331 


475 


5 


442 


302 


6 


324 


520 


7 


213 


613 


8 


115 


694 


9 


318 


420 


10 


314 


518 


11 


223 


370 


12 


152 


412 


13 


314 


460 


14 


92 


502 
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Todothi 
program 

(Array B): 

10 

20 

30 

40 

50 

B0 

70 

80 

90 

10(i 

IK 

12(i 

13(i 

iai 
i as 

15(i 
lGii 
Hi 
18i 



is, add another array to the program. Call it Array B. The following 
records the votes for Candidate A (Array A) and Candidate B 



DATA 143 , 215 » 125 , 331 , 442 

DATA 324 , 213 , 114 , 318 » 314 ; 

DATA 223 , 152 » 314 » 92 

DATA 678 » 514 , 430 » 475 , 302 

DATA 520 » B13 , 894 » 420 » 518 

DATA 370 » 412 , 480 » 502 

DIM A( 14) , B( 14) 

FOR X = 1 TO 14 

READ AOO 

NEXT X 

FOR X = 1 TO 14 

READ BOO 

NEXT X 

INPUT "DISTRICT NO, " 5 Z 

IF Z > 14 THEN 140 

INPUT "CANDIDATE A OR B" 5 R$ 

IF R$ = "A" THEN PRINT A(Z) 

IF R$ = "B" THEN PRINT B(Z) 

GOTO 140 



DO-IT-YOURSELF PROGRAM 26-1 

Write an inventory program that keeps track of 12 items (numbered 
1 -1 2) and the quantity you have of each item. 



Deal the Cards 

To keep track of 52 "cards," you need to use an array. Erase your program 
and type and run this one: 

40 FOR X = 1 TO 52 
50 C = RND(52) 
90 PRINT C 5 
100 NEXT X 

The computer deals 52 random "cards," but if you look closely, you see 
that some of the cards are the same. 

To make sure the computer deals each card only once, you can build 
another array — Array T — that keeps track of each card dealt. Add these 
lines: 

5 DIM T(52) 

10 FOR X = 1 TO 52 

20 TOO = X 

30 NEXT X 

The above lines build Array T and put all 52 cards in it: T(1) = 1,T(2) = 2, 
T(3) = 3 . . . T(52) = 52. 

Then add some lines that "erase" each card in Array T after it's dealt. Type: 



You don't need a DIM line if 
none of your array items use 
a label higher than 10. 
However, it's still a good 
idea to put this line in your 
program to reserve just the 
right amount of memory. 



^ 



80 IFT(C) 
80 T(C) = 



THEN 50 
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Now the computer can't deal the same random card twice. For example, 
assume the computer first deals a two. Line 80 changes T(2)'s value from 2 
to 0. 

Then assume the computer deals another two. Since T(2) now equals 0, 
Line 60 goes back to Line 50 to deal another card. 

Run the program. Note how the computer slows down at the end of the 

deck. It must try many different cards before it finds one that it hasn't dealt 
yet. 

To play a card game, you need to keep track of which cards have been 
dealt. You can do this by building another array — Array D. Add these lines, 
which store all the cards, in the order they are dealt, in Array D: 

7 DIM D(52) 
70 D(X) = T(C) 
90 PRINT D(X) i 



DO-IT-YOURSELF PROGRAM 26-2 

Add lines to the program so that it displays only your "hand" — the first 
5 cards dealt. 



Learned in Chapter 26 

BASIC WORD BASIC CONCEPT 

DIM arrays 



Notes 
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CHAPTER 27 

MANAGING WORDS 



In the last chapter, you used arrays to manage numbers. Here, you'll use 
arrays to manage words by editing, updating, and printing an entire essay. 




Start with a simple list of words: a shopping list: 



1 


EGGS 


7 


TOMATOES 


2 


BACON 


8 


BREAD 


3 


POTATOES 


9 


MILK 


4 


SALT 


10 


CHEESE 


5 


SUGAR 


11 


FISH 


6 


LETTUCE 


12 


JUICE 



Assign each word to a subscripted variable — this time use a subscripted 
string variable. For example, for the first three items, type: 

S$(l) = "EGGS" (ENTER) 
S$(2> = "BACON" (ENTER) 
S$(3> = "POTATOES" (ENTER) 

To see how the items are stored, type: 



The dollar sign 's the only dif- 
ference between these sub- 
scripted variables and the 
ones in the last chapter. 




J 



PRINT S$( 1 ) , S$(2> > S$(3) (ENTER) 

Now build a program that reads these words into an array named S$ and 
then displays them: 

5 DIM S$(125 

10 DATA EGGS* BACON* POTATOES* SALT 

20 DATA SUGAR* LETTUCE* TOMATOES* BREAD 

30 DATA MILK. CHEESE* FISH, JUICE 

40 FOR X = 1 TO 12 

50 READ S$(X) 

B0 NEXT X 

70 PRINT "SHOPPING LISTs" 

80 FOR X = 1 TO 12 

90 PRINT XI S$(X) 

100 NEXT X 
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Want to compose music? 
Look up "Music Composer" 
in the "Sample Programs" 
appendix. 



Haven't heard of word pro- 
cessing? It's a kind of pro- 
gram that lets you type and 
store information, make 
changes to it, and print it out 
on demand. 



1 




Need a refresher on some of 
this? CLEAR is in Chapter 8 
and INKEY$ is in Chapter 1 I . 



^ 



DO-IT-YOURSELF PROGRAM 27-1 

Add some lines to the above program so that you can change any item 
on this list. 



DO-IT YOURSELF PROGRAM 27-2 

Here is a program that uses an array to write song lyrics. 

5 DIM A$(4) 

10 PRINT "TYPE 4 LINES" 

20 FOR X = i TO if 

30 INPUT A*(K) 

40 NEXT X 

50 CLS 

B0 PRINT "THIS IS YOUR SONG;" 

70 PRINT 

80 FOR X = 1 TO 4 

90 PRINT X5 " "5 A*(X) 

100 NEXT X 



Add some lines so that you can revise any line. 



Writing an Essay 

(. . . A Move!, Term Paper . . .) 

Now that you've learned how to use string arrays, it will be easy to write a 
program that stores and edits what you type. Type this program: 

1 CLEAR 1000 

5 DIM A$(50) 

10 PRINT "TYPE A PARAGRAPH" 

20 PRINT "PRESS < / > WHEN FINISHED" 

30 X = 1 

40 A$ = INKEY* 

50 IF A$ = "" THEN 40 

G0 PRINT A$; 

70 IF A$ = "/" THEN 110 

80 A$(X) = A$(X) + A$ 

90 IF A$ = " , " THEN X = X + 1 

100 GOTO 40 

110 CLS 

120 PRINT "YOUR PARAGRAPH;" 

130 PRINT 

140 FOR Y = 1 TO X 

150 PRINT A$( Y) ; 

160 NEXT Y 

Run the program. To see how each sentence is stored, type these lines: 

PRINT A$(l) (ENTER) 
PRINT A*(2) ( ENTE R) 
PRINT A*(3) (ENTER) 

Here's how the program works: 

Line 1 clears plenty of string space. 
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Line 5 saves room for an array named A$ that may have up to 50 

sentences. 

Line 30 makes X equal to 1 . X will be used to label all the sentences. 

Line 40 checks to see which key you are pressing. If it is nothing (" "), 
Line 50 sends the computer back to Line 40. 

Line 60 prints the key you pressed. 

Line 70 sends the computer to the lines that print your paragraph when 
you press the "/" key. 

Line 80 builds a string and labels it with number X. X is equal to 1 un- 
til you press a period (.). Then Line 80 makes X equal to X + 1 . 

For example, if the first letter you press is "R," 

A$(1) EQUALS "R". 

If the second letter you press is "O", 

A$(1) EQUALS A$(1) - WHICH IS "R" + "O" 

OR 
"RO". 

Assume that when A$(1) equals ROSES ARE RED, you press a period. 
A$(1) then equals the entire sentence: ROSES ARE RED. The next letter 
you press is in A$(2). 

Lines 140-160 print your paragraph. 



DO-IT-YOURSELF CHALLENGER PROGRAM 27-3 

Here's a tough one (but it can be done!) for those intrigued with word 
processing. Change the above program so that you can: 

1 . Print any sentence 

2. Revise any sentence 

You may need to review the challenger program in Chapter 12. Our 
answer's in the back. 



Using the Printer 

If you have a printer, connect it now by plugging it into the jack marked 
SERIAL I/O. Turn on the printer and insert paper. The manual that comes 
with the printer shows how. 

Ready? Type this short program: 

10 INPUT A* 

20 PRINT # - 2 > A$ 

Now type: 

LLI5TCMII® 

If your program doesn't list on the printer, be sure the printer is on, 
"on-line," and connected to your keyboard. Then type LLIST (EliTEH) 
again. 
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Having trouble getting into 
this mode? Read the end of 
Chapter 1. 



L^" 



^ 



All the letters in RUN should 
appear in regular (not re- 
versed) colors. 



If you have a Deluxe Color 
Computer, you can get true 
lower-case letters (rather 
than reversed letters) to ap- 
pear on your screen. See 
Introducing Your Deluxe 
Color Computer. 



Run the program and watch the printer work. PRINT » - 2, tells the 
computer to print, not on the screen, but on device # - 2, which is the 
printer. Be sure to type a comma after the -2, or you get a syntax error. 

Press the (SHIFT) and QD (zero) keys simultaneously and release them so 
that the letters you type appear in reversed colors on your screen (green 
with a black background). You are now in an upper- lowercase mode. The 
reversed colored letters are actually lowercase (noncapitalized) letters. 

To type a capital letter, use the (SHIFT) key as you do with a typewriter. It 
appears in regular colors. 

Run the program, using the (SHIFT) key so that the word RUN is capital- 
ized. Input a sentence with both upper- and lowercase letters. Type: 

MY PRINTER PRINTS LOWERCASE LETTERS (HUE) 



DO-IT-YOURSELF PROGRAM 27-4 

Look at the "Writing an Essay" program earlier in this chapter. Chang.. 
Lines 140-160 so that the paragraph prints on the printer rather than 
the screen. 



Learned m Chapter 27 

BASIC WORDS BASIC CONCEPT 

LLIST string arravs 

PRINT # - 2 ' 



Notes 
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CHAPTER 28 



SORTING 



Any file clerk knows it's easier to find information that's sorted alphabeti- 
cally. Type this program and run it, until you're convinced the computer 
can alphabetize: 



10 


INPUT " 


20 


IF A$ < 


30 


IF A$ > 


40 


IF A$ = 




SAME" 


50 


GOTO 10 



TYPE TWO WORDS" 5 A* > B$ 
B$ THEN PRINT A$ " COMES BEFORE " B$ 
B$ THEN PRINT A$ " COMES AFTER " B$ 
B$ THEN PRINT "BOTH WORDS ARE THE 




With strings, the greater than (>), less than (<), and equal ( = ) signs have a 
new meaning. They tell which of two strings comes before the other in 
alphabetical sequence: 

< precedes alphabetically 

<= precedes or is the same alphabetically 

> follows alphabetically 

>= follows or is the same alphabetically 

= is the same 

Since the computer can alphabetize, it's easy to write a sorting program. 
Type and run this program, which sorts 5 words: 



10 

20 

30 

40 

50 

G0 

70 

80 

90 

100 

110 

120 

130 

140 



DIM A$(5) 



FOR I = 
INPUT 
NEXT I 
X = 



1 TO 5 
'TYPE A WORD' 



; a$( i ) 



v - v 4. j 

IF X > 5 THEN GOTO 70 
IF A$(X)="ZZ" THEN G0 
FOR Y = 1 TO 5 

IF A*(Y) < A$(X) THEN 

NEXT Y 

PRINT A*(X) 

A$(X)="ZZ" 

GOTO 50 



You can easily make the 
computer alphabetize more 
words by changing the 5 to 
say, TOO, in Lines 10, 20,70, 
and 90. 
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To see how the program works, delete Line 120 and add the following 
lines. (These lines only show what the program does — they have nothing to 
do with sorting.) 



12 



5 1 


:ls 






45 CLS 






85 


y = u + 1 






105 


PRINT @ 15+32*( 


V- 


1 ) t A$< 


135 


GOSUB 500 






500 


FOR I = 1 TO 5 






510 


PRINT @ + 32*( I- 


■1 ) 


»A$< I ) 


520 


NEXT I 






530 


RETURN 







Run the program. Too fast? Type this line. It slows down the program so 
you can see what's happening: 

107 FOR T = 1 TO (300: NEXT T 

Now run the program again. Input these words and watch carefully: 

MICHAEL 

TRAVIS 

DYLAN 

ALEXIA 

SUSAN 

Look at Column 2. See how the first name changes from Michael to Dylan 
to Alexia. Next, notice what happens to Alexia in the first column. Alexia 
becomes ZZ. 

This illustrates how the program sorts the first and second words: 

FIRST WORD 





MICHAEL 


MICHAEL 


TRAVIS 




TRAVIS 


DYLAN 


DYLAN 




ALEXIA 


ALEXIA 


ALEXIA 


SUSAN 


SUSAN 


SUSAN 


MICHAEL 


MICHAEL 


MICHAEL ALEXIA 


TRAVIS 


TRAVIS 


TRAVIS 


DYLAN 


DYLAN 


DYLAN 




ALEXIA 


~r ~r 



SUSAN SUSAN 

SECOND WORD 

ALEXIA MICHAEL ALEXIA MICHAEL ALEXIA 
TRAVIS TRAVIS 

DYLAN DYLAN 

ZZ 7Z 



i-L. 



SUSAN SUSAN SUSAN 

MICHAEL ALEXIA MICHAEL ALEXIA MICHAEL ALEXIA 
TRAVIS TRAVIS TRAVIS DYLAN 

DYLAN DYLAN ZZ 

Z" 7 " 7 " 7 

SUSAN SUSAN 
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Here's how the program works: 

Lines 50 and 60 set X's value. At the start, X is 1 . 

Then Lines 90-1 10 compare A$(X)— Michael— with every other name in 

Array A$ until a word is reached that precedes Michael— Dylan. 

Line 100 then makes A$(X) equal to Dylan's place in the array: A$(3). 

When Dylan is compared with the fourth word— Alexia— A$(X) becomes 

A$(4). 

When all the words have been compared with one another, Line 120 

displays the first sorted word: Alexia. Line 1 30 changes Alexia's position— 

A$(4)— to ZZ. 

At this point, Lines 50 and 60 make X equal 1 again. A$(X)— Michael— is 

compared with other names in the array to find the second sorted word. 

When Michael's place in the array becomes ZZ, Line 60 sets X to 2. Then, 
A$(X)— which is now Travis— is compared with all the names in the array 
to find the next sorted word. 
When the array's values are all changed to ZZ, Line 70 ends the program. 



DO-IT-YOURSELF PROGRAM 28-1 

Using this sort routine, change the program from the last chapter so 
that it alphabetizes your books by title, author, or subject. 

This chapter shows a simple way to sort. If you need to sort many items, 
you may want to research faster sorting methods (such as the bubble sort). 



Learned in Chapter 28 

BASIC SYMBOLS 



> 
< 



Notes 
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CHAPTER 29 



ANALYZING 



If you have more than 4K RAM, you have an easy way to analyze informa- 
tion. By giving each item more than one subscript, you can see it through 
different dimensions. 




We're only using three dis- 
tricts to keep it simple. 



We're calling them Candi- 
dates 1 and 2 this time rather 
than Candidates A and B. 

C 



1 



Take the voting program from Chapter 1 9. Here's the information (We're 
using only the first three districts to make the program simple.) 



District 

1 
2 
3 



ELECTION POLL 

Votes for 
Candidate 1 

143 
215 
125 



Votes for 
Candidate 2 

678 
514 
430 



In Chapter 19, you stored the above "items" (groups of votes) in two 
one-dimensional arrays: Arrays A and B. In this chapter, you'll store them 
in one easy-to-manage two-dimensional array: Array V. 

The following program puts the items in Array V. 



5 

10 
20 
•30 
40 
50 
(30 

70 

80 

90 

1012 

11(2 

12(2 



!15» 514, 125. 430 



DIM V(3»2) 
DATA 143, (378, 
FOR D = 1 TO 3 
FOR C = 1 TO 2 
READ M(D,C) 
NEXT C 
NEXT D 

INPUT "DISTRICT NO, (1-3)" 
IF D < 1 OR D > 3 THEN 70 
INPUT "CANDIDATE NO, (1-2) 1 
IF C < OR C > 2 THEN 90 



PRINT M(D 
GOTO 70 



C) 
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Type and run the program. Notice that each item is labeled by two 
subscripts. 

Here's how the program works: 

Line 5 reserves space in memory for Array V. Each item in Array V can have 
two subscripts: the first, no higher than 3; the second, no higher than 2. 

Lines 20-60 read all the votes into Array V, giving them each two 
subscripts: 

The first subscript is the district (Districts 1-3). 

The second subscript is the candidate (Candidates 1-2!. 



*V/^ 



->/ 



'OUR COMPUTER'S MEMORY 



u ( i f 1 >- 
v < 2 > i )- 

M ( 3 > 1 )- 



►143 
-215 
-125 



JV 



— ^w 



M« 1 »2)— * -G78 
y<2,2)— -514 . 
U<3.2)— -430 /Q) 

O 



For example, 678 is labeled V(1 ,2). This means 678 is from District 1 and is 

for Candidate 2. 

With all the votes in a two-dimensional array, it's simple to analyze 
them— in two dimensions. By adding these lines, for example, you can 
print all the votes in two ways: by district and by candidate. 

(Delete Lines 70-120 first) 



70 

80 

100 

110 

1 000 

1010 
1015 
1020 
1030 
1040 
1050 
1060 
1070 
1080 

2000 
201i 
2015 

2020 
2030 
204i 
205# 
2060 
207i 
208i 



INPUT "TYPE < 1 > FOR DISTRICT OR 
< 2 > FOR CANDIDATE" 5 R 
IF R < 1 OR R > 2 THEN 70 
ON R GOSUB 1000 > 2000 



GOTO 70 



N0( 1-3) " ; D 
3 THEN 1000 



INPUT "DISTRICT 

IF D < 1 OR D > 

CLS 

PRINT @ 132 » "MOTES FROM DISTRICT" D 

PRINT 

FOR C 

PRINT 

PRINT 

NEXT C 

RETURN 



= 1 TO 2 
"CANDIDATE" 
M ( D t C ) 



'CANDIDATE N0( 1-2) " 5 C 
1 OR C > 2 THEN 2000 



INPUT 

IF C < 

CLS 

PRINT @ 132 f "MOTES FOR CANDIDATE" C 

PRINT 

FOR D = 1 TO 3 

PRINT "DISTRICT" D> 

PRINT V<D»C) 

NEXT D 

RETURN 



Remember how to delete 

lines? 70 (HUE) Deletes 
Line 70. 
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If you are truly an analytical 
type, you're going to love 
the rest of this chapter. If 
you're definitely NOT that 
type, skip it! 
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The Third Dimension 

You can continue with as many dimensions as you want. You're limited 
only by how much information you can fit into the computer's memory. 

Add a third dimension to Array V: interest groups. Here's the information; 
VOTES FROM INTEREST CROUP 1 





Candidate 1 


Candidate 2 


District 1 
District 2 
District 3 


143 

215 
125 


678 
514 
430 




VOTES FROM INTEREST 


CROUP 2 




Candidate 1 


Candidate 2 


District 1 
District 2 
District 3 


525 
318 
254 


54 
157 
200 




VOTES FROM INTEREST 


CROUP 3 




Candidate 1 


Candidate 2 


District 1 
District 2 
District 3 


400 

124 
75 


119 
300 
419 



To get all this into your computer's memory, erase your program and type: 



5 

10 
20 
30 

40 

50 

G0 

70 

80 

"- 90 

1 10 

120 

130 

140 

150 

1G0 

170 

180 



DIM U(3»3,2) 
DATA 143, G78, 215 
DATA 525* 54 , 318, 
DATA 400, 113, 124 

FOR G = 1 TO 3 
FOR D = 1 TO 3 
FOR C = 1 TO 2 
READ UCG,D,C) 
NEXT C 
NEXT D 

INPUT "INTEREST 
IF G < 1 OR G > 
INPUT "DISTRICT 
IF D < 1 OR D > 
INPUT "CANDIDTE 
IF C < 1 OR C > 
PRINT U(G »D ,C) 
GOTO 110 



514 

157 , 

300 



. 125 

254 > 

75, 



» 430 
200 
419 



GROUP NO (1-3) 
3 THEN 110 
NO, (1-3)5 D 
3 THEN 130 
NO. ( 1-2) " 5 C 
2 THEN 150 



Run the program and test the subscripts. Lines 40-100 read aii the votes 
into Array V, giving them each three subscripts: 

The first subscript is the interest group (Interest Groups 1-3). 

The second subscript is the district (Districts 1-3). 

The third subscript is the candidate (Candidates 1-2). 
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For example, 678 is now labeled V(1 ,1 ,2). This means 678 is from Interest 
Group 1, is from District 1, and is for Candidate 2. 

To take advantage of all three dimensions, delete Lines 1 1 0-1 80 and type: 

PRINT: PRINT "TYPE <1> FOR GROUP" 
PRINT "<2> FOR DISTRICT OR <3> FOR 
CANDIDATE" 

130 P = 224 : INPUT R 

140 ON R GOSUB 1000 >2000 »3000 

150 GOTO 110 



110 
120 



1000 
1010 
1020 
1030 
1040 
1050 
10G0 
1070 
1080 
1100 
1110 
1120 
1130 
1140 

2000 
2010 
2020 
2030 
2040 
2050 
20G0 
2070 
2080 
2100 
2110 
2120 
2130 
2140 

3000 
3010 



INPUT 
IF G<1 
CLS 
PRINT 
PRINT 
PRINT 
FOR D 
PRINT 
FOR C 
PRINT 
NEXT C 
p = p + 

NEXT D 
RETURN 



'GROUPC 1-3) " 5 G 
OR G>3 THEN 1000 



i 
@ 
@ 

§ 

@ 



102 t "MOTES FROM 

1B8» "CAND, 1" 

17G» "CAND, 2" 

1 TO 3 

P» "DIST," D 

1 TO 2 

P + B*C t M(G »D »C) 5 

32 



GROUP" G 



INPUT 
IF D<1 
CLS 
PRINT 
PRINT 
PRINT 
FOR G 
PRINT 
FOR C 
PRINT 
NEXT C 
P = p + 
NEXT G 
RETURN 

INPUT 
IF C<1 



"DISTRICT* 1-3) " ! D 
OR D>3 THEN 2000 



@ 

@ 
@ 

e 
e 



102 > "VOTES FROM 

1G8. "CAND. 1" 

176 > "CAND, 2" 

1 TO 3 

P> "GROUP" G 

1 TO 2 

P + 8*C»M(G»D 

32 



DIST. 



C) 



'CANDIDATE* 1-2) " 5 C 
OR C>2 THEN 3000 
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3020 


CLS 




3030 


PRINT @ 


102, "MOTES FOR 


3040 


PRINT @ 


168, "DIST, 1" 


3050 


PRINT @ 


176, "DIST, 2" 


3060 


PRINT @ 


184* "DIST, 3" 


3070 


FDR G = 


1 TO 3 


3080 


PRINT @ 


P. "GROUP" G 


3090 


FOR D = 


1 TO 3 


3100 


PRINT @ 


P + 8*D, V(G»D»I 


3110 


NEXT D 




3120 


P = P + 


32 


3130 


NEXT G 




3140 


RETURN 





CAND, 



C) 



Run the program. You can now get three perspectives on the information. 



DO-IT-YOURSELF PROGRAM 29-1 

Write a program to deal the cards using a two-dimensional array. 
Make the first dimension the card's suit (1 -4) and the second dimen- 
sion the card's value (1-13). 



Learned in Chapter 29 

BASSC CONCEPT 
Multidimensional arravs 



Notes 
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SECTION IV 

BACK TO BASICS 

This section sends you back to school. You'll learn some new Extended 
Color BASIC words that will help you refine and polish your programs. 
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CHAPTER 30 

THE NUMBERS GAME 



Your "extended" Color Computer includes several advanced mathematical 
functions. This chapter gives a rundown of each function and shows the 
ways to use it. 

■'ooo ooo oo'b 060 °9^P '■_ 




Before continuing, however, you need to know about a couple of functions 
and definitions discussed below. 



Exponentiation 

CD 

Quick! What's 1.5 squared? How about 77 cubed? If you don't know, ask 
the computer. Anytime you want to raise a number to the nth power, follow 
this format: 



I 



number CD power 

number is the base (the number you wish to raise to the nth 
power). It may be any numeric expression. 

up-arrow is generated by pressing CD- 
power is the exponent to which the base is raised. It may be any nu- 
meric expression. 

Note: Exponentiation has precedence over other operators. For exam- 
ple, if the computer calculates -2 up-arrow 2, the result is a negative 
number. To raise -2 to the 2d power "correctly" (resulting in positive 
number), enclose -2 in parentheses. 



Start with 77 cubed. After looking at the syntax block, can you give the 
command? Your answer should be 456533.002. 

If your screen looks like this, you're off to a good start: 

PRINT 77 f 3 

456533.002 
OK 

Try raising 1 to the 1 0th power. The screen displays: 

1 .00000001E+10 



Don't worry about the 
".002." This is called a 
"round-ofi error" and is 
necessary because the 
computer isn't the "per- 
fect" calculator. But then, 
no machine is. 
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Trigonometry is the investi- 
gation of the relationship 
of a triangle's sides to its 
angles. 



Since 1 0,000,000,000 has more than 9 significant digits, the computer 
went into the E notation explained in Chapter 13. 

How about 100 to the 100th power? Does the screen display an ?OV ER- 
ROR (overflow)? This means that the answer is too large for the computer 
to handle. Anything outside the range - 10-' 8 to + 10 ,s causes an overflow 
error. 



DO-IT-YOURSELF PROGRAM 30-1 

Write a short program that displays the square of each whole number 
from 1 to 1 0. 



SQR 

SQR enables you to find the square root of a number. Here is its syntax: 

;; SQR (number) I 

\ number is zero or any positive number. 



For example, If you want the square root of 100, type: 
PRINT SQRC100) (ENTER) 

and you'll find out (if you didn't already know) that the answer is 10. 

DO-IT-YOURSELF PROGRAM 30-2 

; Write another short program to display the square root of every tenth 
; number from 1 00 to 0. 



TRIG Functions 

Look at this triangle. You'll be using it throughout the discussion of trigon- 
ometric functions. 



A A 




AC 



Trigonometry has many practical applications. For instance, imagine that 
your triangle is actually the roof of a house you're building. Trigonometric 
'functions can help you determine either the length of the rafters or the slope 
of the roof (the "pitch"). So if math turns you off but building things turns 
you on, this section might be just what you're looking for. 

Notice that we've labeled angles with the prefix A and sides with the prefix 
S. Angle A, for example, is AA; the side opposite i is SA. 
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Using the triangle, we can define the common trig functions in the follow- 
ing manner: 

Sine of AA = SIN (AA) = SA/SC 

Cosine of AA = COS (AA) = SB/SC 

Tangent of AA = TAN (AA) = SA/SB 

Degrees v Radians 

To define an angle, you may use either of two units of measurement. The 
more common unit is the degree; the "more technical" unit is the radian. 

Your computer assumes all angles are measured in radians. Since radians 
may be somewhat alien to you, you can convert them to degrees (and vice 
versa) this way: 

Degrees to Radians: Degrees / 57.29577951 
Radians to Degrees: Radians * 57.29577951 

This chapter's sample programs include a "converter" that takes the de- 
grees you input and automatically converts them into radians (and vice 
versa for some purposes). 
SIN 

That's sine — pronounced like "sign." 

Its syntax is: 



SIN (angle) 



angle is angle's size in radians. 



Given the length of one side and the sizes of two angles, you can use SIN 
to determine the lengths of the other sides. 

Enter and run the following program, inputting any values. 



5 CLS 

10 IN 

IF 

IN 

IF 

IN 

IF 

AC 

IF 
, T 

AA 
AC 



20 

30 

40 
50 

G0 



70 SA 
TH 
80 SB 
TH 
90 PR 
PR 
SB 
P 
T 



100 



PUT " 

AAO 

PUT " 

A A < 

PUT " 

SC < 

= 18 

( AA + 

RIANG 

= AA/5 

= AC/5 

CONUE 

= ( (SI 

EN 10 

= ( (SI 

EN 10 

INT " 

INT " 

"LON 

RINT 

RY AG 



WH 



WH 

= 

WH 

= 

0- 

AB 

LE 

7. 

7. 

RT 

N( 



NC 



SI 

SI 

G" 

"S 

AI 



AT 
OR 
AT 
OR 



IS ANGLE A (AA) " 5 AA: 
AA>=180 THEN 100 
IS ANGLE B (AB) " 5 AB; 
180 THEN 100 



AB 



C (SO"? SC; 



AC 



AT IS SIDE 
THEN 100 
(AA+AB) 'VALUE OF ANGLE 
+AC) < > 180 THEN 100 
=180 DEGREES 

23577951: AB=AB/57 , 2957795 1 : 
23577951 
DEGREES TO RADIANS 

AA) )/(SIN( AC) ) ) # SC; IF SA<0 

AB) )/(SIN(AC) ) ) * SC; IF SB<0 

DE A (SA) IS" SA "LONG": 

DE B(SB) IS" 

: GOTO 10 

ORRY » NGT A TRIANGLE, 

N": GOTO 10 



In the Sample Program 
section is a program called 
Drawing Triangles. That 
program draws triangles 
based upon sides and an- 
gles that ynu specify. 
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When the computer asks you for AB and AC, input degree-measures of the 
angles. If you enter a negative number or a number that is greater than or 
equal to 1 80, the computer goes to Line 1 00. it then prints the message and 
again asks for the sizes. If you enter a negative number for SC, it does the 
same thing. 

Since you don't know the size of AC, the computer automatically computes 
this in Line 40. If the sum of the three angles is not equal to 180 degrees, 
the computer takes appropriate action in Line 50. Line 60 converts degrees 
to radians so the computer can do the sine calculations. 

Sine Waves 

You may have seen sine waves before. They're used to indicate AC power 
and other electrical conditions. Run the following program to see a "hori- 
zontal scrolling" sine wave (and check the Sample Program section for a 
more conventional sine wave). 

5 CLS 

10 FOR A = 180 TO -179 STEP-10 
20 RD = A / 57.23577951 'RADIANS 
30 CL = SIN(RD) * 14 + IB, 5 

'CL = COLUMN POSITION 
40 PRINT TAB(CL) 5"S" 'PLOT SINE OF RD 
50 NEXT A 
60 GOTO 60 

COS 

The cosine function is related to the sine function and has the following 
syntax: 



COS {angle) 

angle is angle's size in radians. 



Given the lengths of two sides and the size of one angle, you can use cosine 
to determine the length of a triangle's third side, as shown here: 

5 CLS 

10 INPUT "WHAT IS ANGLE C (AC)"! ACs 

IF ACO0 OR AC>=180 THEN 100 
20 AC = AC / 57,29577951 

'CONVERT DEGREES TO RADIANS 
30 INPUT "WHAT IS SIDE A ( SA ) " I SA: 

IF SA<=0 THEN 100 
40 INPUT "WHAT IS SIDE B (SB)"? SB; 

IF SB=<0 THEN 100 
50 SC = ((SA | 2) + (Sf3 I 2) ) ~ ( 2* ( Sft*SB* 

COS(AC))): IF SC<0 THEN 100 
60 PRINT "SIDE C (SC) IS" SOR(SC) "LONG"? 

GOTO 10 
100 PRINT "SORRY* NOT A TRIANGLE, 
TRY AGAIN" ; GOTO 10 

Notice that the program works almost the same as the SIN program except 
for the use of exponentiation (up-arrow) in Line 50 and SQR in Line 60. " 



DO-IT-YOURSELF PROGRAM 30-3 

Cosine can make waves of its own. Rewrite the "Sine Wave" program 
so that it plots COS(RD) instead of SIN(RD). Use C (for cosine) to display 
the wave made by COS. What is the difference between the two? 



TAN 

The third trigonometric function, TAN, lets you calculate the tangent of an 
angle. Here is its syntax: 

TAN (angle) 

angle is angle's size in radians. J 



You can use TAN to determine, among other things, one side of a triangle, 
given another side and one angle. 

Enter and run this program: 

5 CLS 

10 INPUT "WHAT IS SIDE B (SB) 11 ; SB: 

IF SB< = THEN 100 
20 INPUT "WHAT IS ANGLE A (AA)"5 AA: 

IF AA<=0 OR AA>=180 THEN 100 
30 AA=AA/57, 29577951 'CONVERT DEGREES 

TO RADIANS 
40 SA=SB*(TAN(AA) ) : IF SA<=0 THEN 100 
50 PRINT "SIDE A (SA) IS" SA "LONG": 

GOTO 10 
100 PRINT "SORRY , NOT A TRIANGLE, 
TRY AGAIN": GOTO 10 

The key to this program, of course, is Line 40, where the tangent of AA is 
multiplied by the length of SB to determine the length of SA. 

ATN 

ATN (arctangent) is the inverse of TAN and has the following syntax: 



ATN (angle) 

angle is angle's size in radians. 

The following program uses ATN and TAN to calculate two unknown angles 
of a triangle when two sides and one angle are known. 

10 CLS 

20 INPUT "WHAT IS SIDE A (SA)"i SA: 

IF SAO0 THEN 150 
30 INPUT "WHAT IS SIDE' C (SO"! SC: 

IF SC<=0 THEN 150 
40 INPUT "WHAT IS ANGLE B (AB)"5 AB : 

IF AB<=0 OR AB>=180 THEN 150 
50 XM180-AB) 'AA + AC=180-AB 
60 X=X/57. 29577951 'CONVERT DEGREES 

TO RADIANS 
70 Y=( (SA-SC)/(SA + SC) )#TAN(X/2) 
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80 Z=ATN(Y) 

90 AA=(X/2)+(Z) 

100 AC=(X/2)-(Z) 

110 AA=AA*57. 29577951 'CONVERT 

RADIANS TO DEGREES 
120 AC=AC*57. 29577951 'CONVERT RADIANS 

TO DEGREES 
130 PRINT "ANGLE A (AA) IS" AA "DEGREES" 
140 PRINT "ANGLE C (AC) IS" AC "DEGREES": 

GOTO 20 
150 PRINT "SORRY* NOT A TRIANGLE. 

TRY AGAIN": GOTO 20 

TAN ((AA-AQ/2) is equal to ((SA-SC)/(SA + SO) * TAN ((AA + AQ/2). Also 
notice that it was necessary to convert the "computer's" radians to "your" 
degrees (Lines 110 and 120). 

LOG 

LOG returns the natural logarithm of a number. This is the inverse of EXP, 
so X = LOG(EXP(X». Here is LOG's syntax: 



| LOG (number) 

number is greater than zero. I 

The logarithm of a number is the power to which a given "base" must be 
raised to result in the number. "Logs" are useful in scientific and mathe- 
matical problems. In the LOG function, if you omit the base, the computer 
assumes you are specifying Base e (2.718281828). 

To find the logarithm of a number to another base, B, use this formula: 

log base B (x) = log e (x) / log e (B) 

For example, LOG (32768)/LOG(2) returns the logarithm to Base 2 of 
32768. (It returns the power to which 2 is raised to get 32768.) 

Try these: 



PRINT LOG (1) (ENTER) 

PRINT LOG ( 100) (ENTEFD 

PRINT LOG (2,718281828) (ENTER) 



DO-IT-YOURSELF PROGRAM 30-4 
Compute the LOG of each of the following numbers: 
a) 1003 b) 74.9865 c) 3.354285 



DO-IT-YOURSELF PROGRAM 30-5 

Compute the log to Base 1 of each of the following numbers: 
a) 1 b) 10 c) 100 

d) 500 e) 0.1 f) 1001 

loge x 

Hint: log 10 x= 

log e 1 
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EXP 

The EXP function returns the natural exponential of a number (enumber ). 
EXP is the inverse of LOG; therefore, X = EXP(LOG(X)). Here is EXP's 
syntax: 



EXP (number) 

number is less than 87.3365. 



Run this program to see EXP at work. 



10 
20 
30 
40 



CLS 
INPUT 
PRINT 
GOTO 2 



"ENTER X" 5 
"EXP(X) =" 5 



EXP(X) 



FIX 

It's impressive when your computer carries a number out to 9 significant 
digits, especially when 8 of those numbers are to the right of the decimal 
point. 

However, sometimes you might not want all those numbers; you may want 
only the whole-number portion (the number to the left of the decimal point). 
FIX lets you get this whole number by simply chopping off all digits to the 
right of the decimal point. Here is FIX's syntax: 



FIX (number) 

For example, type: 

PRINT FIX (2.2643951 ) (ENTER) 

The computer displays: 

2 
OK 

Here's a program that breaks a number into its whole and fractional 
portions. 

10 CLS 

20 INPUT "A NUMBER LIKE X.YZ"! X 

30 W=FIX(X) 

40 F=ABS(X)-ABS(W) 

50 PRINT "WHOLE PART=" 5 W 

60 PRINT "FRACTIONAL PART="5 F 

70 GOTO 20 



DEF FN 

Extended Color BASIC has one numeric function, DEF FN, that is un- 
like any others we've talked about so far. DEF FN lets you create your 
own mathematical function. You can use your new function the same 
as any of the available functions (SIN, COS, TAN, and so on). Once 
you've used DEF FN to define a function, you may put it to work in 



When you use this feature, 
don't forget to use the DEF 
FN statement before you 
try to execute the function 
it defines. Otherwise a iUF 
ERROR (undefined func- 
tion) occurs. 
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your program by attaching the prefix FN to the name you assign to the 
new function. Here is the syntax for DEF FN: 



DEF FN name (variable list) = formula 

name is the name you assign to the function you create. 

variable list contains one "dummy variable" for each vari- 
able to be used by the function. 

formula defines the operation in terms of the variables given 
in the variable list 

Note: Variable names that appear in formula serve only to define 
the formula; they do not affect program variables that have the 
same name. You may have only one argument in a formula call; 
therefore, DEF FN must contain only one variable. 

You may use DEF FN only in a program, not in the immediate 
mode. 



For example, one math operation you've had to use several times in 
this chapter is degree-to-radian conversion. Wouldn't it be nice if the 
computer did that for you? 



If you'll change the sample program we used for SIN, you'll see how 
to create a DEF FN that converts degrees to radians. 

7 DEF FNR(X)=X/57, 23577351 

B0 AA=FNR(AA): AB=FNR(AB); AC=FNR(AC) 



You can see right away how much typing this saves, since you had to 
enter 57.29577951 only once. Whenever FNR is called into use, the 
computer automatically inserts whatever values you have used and 
performs the prescribed operation. 



DO-IT-YOURSELF PROGRAM 30-6 
Use DEF FN to: 

1 . Convert radians to degrees. 

2. Create a math function that cubes numbers. 



You'll find a quick reference table of many useful mathematical formu- 
las (plane geometry, trig, and algebra) in the Appendix. 
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Learned in Chapter 30 

BASIC WORDS CONCEPTS 

SQR Computing a square root 

SIN Computing the sine; 

Determining two unknown sides of a trian- 
gle, given two angles and a side, 

COS Computing the cosine; 

Determining the unknown side of a trian- 
gle, given two sides and an angle 

TAN Computing the tangent; 

Determining the unknown side of a trian- 
gle, given one side and an angle 

ATN Computing the arctangent; 

Determining two unknown angles of a tri- 
angle, given two sides and the third angle 

LOG Computing the natural logarithm of a 

number 

EXP Computing the natural exponential of a 

number 

FIX Rounding a decimal number to a whole 

number 

DEF FN Defining a function 



Notes 
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CHAPTER 31 



IT DON'T MEAN A THING 

IF IT AIN'T GOT THAT 

STRING 




Earlier, we discussed string at great length. Now it's time for informa- 
tion about more of Extended Color BASIC'S string functions. 



STRINGS 

Zing goes STRINGS . . . and when you use it to create a string of char- 
acters, you can produce graphs, tables, and any other text display. The 
syntax of STRINGS is as follows: 

STRINGS (length, character) 

length is a number from to 255. 

character is either a string expression for a character or a 
numeric expression for an ASCII code. If you use a string 
constant, enclose it in quotes. 



The number of characters displayed depends on the number you spec- 
ify in length. Which characters are used depends on either the charac- 
ter or the ASCII code you specify. See the Appendix for a complete list 
of ASCII character codes. 

For instance, jazz up your overworked "Lines" program by changing it 
as follows: 
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5 CLS 

B X* = STRING* ( 13 »"*" ) 

7 PRINT @ 9(3, X$5 "LINES" 5 X* 

9 FDR X = 1 TO 1000: NEXT X 

10 PMODE 3 »1 
15 PCLS 

20 SCREEN 1 >l 

25 LINE (0 *0)-(255 »191 ) *PSET 
30 LINE (0,191 )-(255»0) »PSET 
40 GOTO 40 

Line 6 assigns X$ the value STRINGS (13,"*")— a string of 13 asterisks. 

Line 7 tells the computer to print (starting at Print Screen Location 96) 
X$, then the word LINES, followed by X$ again. (See the Text Screen 
Worksheet in the Appendix.) Since X$ equals 13 asterisks (*), those 
characters are printed before and after LINES. 

What? You want to spruce up the title even more! All right, add these 
two lines: 

8 Y* = STRING*(31 ,42) : PRINT @ 384 »Y* 

This time, you tell the computer to display the character represented 
by ASCII Code 42. And, as you probably guessed, ASCII Code 42 rep- 
resents an asterisk. 



DO-IT-YOURSELF PROGRAM J 1-1 

Have you ever written lists to check off jobs that you or other peo- 
ple have to do? 

Using STRINGS, write a program that creates a check-off list. 

I Think I See Some-String Ahead! 

(INSTR) 

If you want to search through one string for a second string, use 
INSTR. 

INSTR's syntax is: 

INSTR (position,search-string,target) 

position specifies the position in the search-string at which 
the search is to begin (0 to 255). If you omit position, the 
computer automatically begins at the first character. 

search-string is the string to be searched. 

target is the string for which to search. 

INSTR returns a if any of the following is true: 

The position is greater than the number of characters in the 
search-string. 

The search-string is null. 

It cannot find the target. 

Watch the way INSTR works in the following program: 
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5 CLEAR 500 

10 CLS 

15 INPUT "SEARCH TEXT'iS* 

20 INPUT "TARGET TEXT"!T$ 

25 C=0: P=l '? = POSITION 

30 F = INSTR(P,S$ ^Tt> 

35 IF F = THEN G0 

40 C=C+1 

45 PRINT LEFT$ ( S$ , F- 1 ) +STR ING$ ( LEN ( T$ ) * 

CHR$(128)) + RIGHT$CS$ >LEN(S$) -F- 

LEN(T$) + 1 ) 
50 P=F+LEN(T$) 

55 IF P<=LEN(S$)-LEN(T*>+1 THEN 30 
G0 PRINT "FOUND"i C5 "OCCURRENCES" 

The following is a sample run. However, you can input whatever text 
you need. 

SEARCH TEXT? YOU SHOULD TRY TO USE YOUR TRS- 

80 COLOR COMPUTER AS MUCH AS POSSIBLE. 

TARGET TEST? TR 

YOU SHOULD Hf!Y TO USE YOUR TRS-80 COLOR 

COMPUTER AS MUCH AS POSSIBLE 

YOU SHOULD TRY TO USE YOUR gfSS-80 COLOR 

COMPUTER AS MUCH AS POSSIBLE 

FOUND 2 OCCURRENCES 

OK 

Here's what happens: 

1. Line 15 assigns S$ (search) the value, YOU SHOULD TRY 
TO USE YOUR TRS-80 COLOR COMPUTER AS MUCH AS 
POSSIBLE. 

2. Line 20 assigns T$ (target) the value of TR. 

3. Line 30 tells the computer to start searching for T$ at the 
first position (P) in S$. 

4. In Lines 45 and 55, INSTR locates T$ and then prints and 
blocks out T$ (CHR$(128)). It searches for the next occur- 
rence of T$ and does the same. 

5. Line 60 tells the computer to display the number of occur- 
rences (A T$ in S$. 

DO-IT-YOURSELF PROGRAM 31-2 

i Write a program that returns the first and second occurrences of 
the B in ABCDEB. 

The following data storage program contains a mailing list of names 
and addresses. This is an easy way to store information. Notice that 
we've saved storage space by not putting spaces between the words. 
Doing so makes it difficult for you to read but not for the computer to 
do so. 

Notice also that we assign a leading asterisk (*) to zip codes so the 
computer doesn't confuse them with street numbers. 

In this case, we're looking for the names and addresses of all individu- 
als who live in the area specified by zip code 650 — . Consequently, 
*650 is the target (A$). 
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5 CLS 

10 A$ = "*G50" 

20 K$ = "JAMES SMITH »GS50HARR I SON > 
DALLASTX*75002:SUE 
SIM >RT3 >GRAMIOSMO*G5084;LYDIA 
LONG »3445SMITHST > ASBURYN J*32044 : 
JOHN GARDNER »BOXG0EDMONTONALBERTACA" 

30 Y* = "KERRY FEWELL >456MAPLE » 
NEW0RLEANS*S3667; BILL 

DOLSEIN .S313E121 K ANSASC I TYM0*64 1 34 ; 
STEVE HODGES* RT4FLORENCEME*G5088 

40 Z$ = "KAREN CROSS *314HURLEY 

WASHINGTONDC*10011 ; ASHER 
FITZGERALD >2338HARR I SONFTWORTHTX 
#76101; LIZ DYLAN »B0X999NEWY0RKNY 
#8G8SG" 

So that your computer can search X$, add this line: 

50 PRINT INSTRCX* »A$) 

Run the program. Your screen displays: 

62 
OK 

This tells you the string contains a name and address you need. 

What about Y$? Edit Line 50 so that the computer searches through 
those addresses. Does it tell you it found the needed name? 

Now try Z$. Displaying a zero is your computer's way of saying, 
"There aren't any names you need on this list." 

DO-IT-YOURSELF PROGRAM 31-3 

Modify the mailing list program so that the following are true: 

I X$ contains two addresses that have a 650 — zip. 

I The computer looks for eyery occurrence of *650, not 

| only for the first. i 

Never Change Horses In Midstring 

(MID$) 

MID$ statement gives you a pdWerful string editing capability by let- 
ting you replace a portion of one string with another. The syntax of 
MID$ is as follows: 

: MI D$ (oldstring,position,length) = newstring 

I oldstring is the variable-name of the string to replace. 

v position is the number of the position of the first character to 

j, be changed. 

length is a number of characters to replace. If you omit 
length, the computer replaces all of oldstring 

newstring is the string that replaces the specified portion of 
I oldstring. 

Note: If newstring has fewer characters than length specifies, 
the computer substitutes all of newstring, newstring is always 
I the same length as oldstring. 
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To see what we mean, run this program: 

5 CLS 

10 A$ = "KANSAS CITY t MO" 

20 MID$( A$ ,14) ="KS" 

30 PRINT A$ 

Line 10 assigns A$ the value KANSAS CITY, MO. Then Line 20 tells 
the computer to use MID$ to replace part of the oldstring (A$) with KS, 
starting at Position 14. 

Change Position 14 to 8 and run the program. The result is: 

KANSAS CITY , MO 
Now add the length option to Line 20: 

20 MID$(A$ ,14 ,2) = "KS" 

Notice that it doesn't affect the result since newstring and oldstring are 
both two characters long. Change length to 1 : 

20 MID4(A$ tUti) ="KS" 

The computer replaces only one character in oldstring, using the first 
character in KS. 

You'll find MID$ to be doubly effective when used with INSTR. Using 
the two, you can "search and destroy" text. INSTR searches; MID$ 
changes or "destroys." The following program illustrates this: 

5 CLS 

10 INPUT "ENTER A MONTH AND DAY (MM/DD). ";><$ 

20 P = INSTR(X$ »"/" ) 

30 IF P = THEN* 10 

40 MID$()<$ ,P,1 )= "-" 

50 PRINT )<$ " IS EASIER TO READ, ISN'T IT?" 

In this program, INSTR searches for a slash (/). When it finds one, 
MID$ replaces it with a hyphen (-). 



DO-IT-YOURSELF PROGRAM 31-4 

Pretend you worked at a telephone company in the days when 
telephone exchanges were being switched from alpha-characters 
to numeric-characters. Write a program that uses MID$ to replace 
all alpha-exchanges with numbers. Be sure to clear enough string 
space or you'll get an ?OS ERROR. 



Learned in Chapter 31 

BASIC WORDS CONCEPTS 

STRINGS Creating a string of characters 

INSTR Searching for a string 

MID$ Replacing one string for another 
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Notes 
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CHAPTER 32 



IN ONE DOOR AND 
OUT THE OTHtR 



Input/output statements let you send data from the keyboard to the 
computer, from the computer to the TV, and from the computer to the 
printer. These functions are primarily used inside programs to input 
data and output results and messages. 




A Line Drive 

(LINE INPUT) 

The first input/output statement is LINE INPUT. Its syntax is as follows: 

; LINE INPUT "prompt" string variable 

l prompt is the prompting message. ' 

| string variable is the name assigned to the line that is input f 

j from the keyboard. J 



LINE INPUT is similar to INPUT, except for these differences: 

When the statement executes, the computer does not dis- 
play a question mark while awaiting keyboard input. 

Each LINE INPUT statement can assign a value to only one 
variable. 

The computer accepts commas and quotation marks as part 
of the string input. 

Leading blanks, rather than being ignored, become part of 
the string variable. 

With LINE INPUT, you can input string data without worrying about 
accidentally including delimiters such as commas, quotation marks, 
and colons. The computer accepts everything. In fact, some situations 
require that you input commas, quotation marks, and leading blanks as 
part of the data. 
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Examples: 

LINE INPUT X$ (ENTER) 
lets you input X$ without displaying any prompt. 

LINE INPUT "LAST NAME, FIRST NAME? ";N$ (11111 

displays the prompt "LAST NAME, FIRST NAME? " and inputs data. 
Commas do not terminate the input string. Notice that the prompt in- 
cludes the question mark and the following space. 

To understand LINE INPUT better, enter and run the following 
program: 

10 CLEAR 300: CLS 

20 PRINT TAB(8)i "LINE INPUT STATEMENT": 

PRINT 
30 PRINT: PRINT "*** ENTER TEXT *##" 
40 ' ### GET STRING* THEN PRINT IT #** 
50 A$ = "" 'SET A$ TO NULL STRING 



G0 LINE INPUT 



> 



A$ 



70 IF A$ = "" THEN END 'IF STILL NULL 

STRING f STOP! 
80 PRINT A$ 
90 GOTO 50 



Customized Printing 

(PRINT USING) 

By now you know that the more you work with your computer, the 
more it can work for you. For instance, maybe you want to create a ta- 
ble that uses numbers, but you don't want to type the plus and minus 
signs repeatedly. 

PRINT USING makes short work of this kind of problem by enabling 
the computer to print strings and numbers in a "customized" format. 
This can be especially useful for accounting reports, checks, tables, 
graphs, or other output that requires a specific print format. 

Here is PRINT USINC's syntax: 

PRINT USING fonnM;ihrn list 

format is a string expression that tells the computer the for- 
mat to use in printing each item in item-list. It consists of 
* "field specifiers" and other characters and is one (or one 

set). 

item-list is the data to be formatted. 

Note: PRINT USING does not automatically print leading 
and trailing blanks around numbers. It prints them only as 
you indicate in format. 



You may use the following field specifiers as part of format: 
# $$ 



**$ 

+ 



$ 



The examples in the field 
specifier list are in the im- 
mediate mode but may £>e 
incorporated into a pro- 
gram line. 
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Below is an explanation of each field specifier, followed by examples 
of its use. 

# A number sign specifies the position of each digit in the 

number you enter. The number of number signs establishes 
the length of the numeric field. 

If the field is larger than the number, the computer displays 
the unused positions to the left of the number as spaces and 
those to the right as zeros. 

PRINT USING "»#»##"; EG. 2 (ENTER) 

GG 

If the field is too small for the number, the computer dis- 
plays the number with a leading % sign. 

PRINT USING "*"! GG.2 (ENTER) 
1GG 

You can place the decimal point at any field location that 
you established with the number sign. The computer auto- 
matically rounds off any digits to the right of the decimal 
point that don't fit into the field. 



PRINT USING "#.»"» 66.25 (ENTER) 
■JCGG, 3 



PRINT USING "#».#"; 58, 7G (ENTER) 
58.8 

PRINT USING "##.## 

" 110,2 ,5.3 ,66,789 ,.234 (ENTER) 
10.20 5.30 66.79 0.23 

Note: In the last example, format contains three 
spaces after the final number sign. These spaces sepa- 
rate the numbers when the computer displays them. 



The comma, when placed in any position between the first 
digit and the decimal point, displays a comma to the left of 
every third digit. The comma establishes an additional posi- 
tion in your numeric field. To avoid an overflow (indicated 
by a leading percent sign), place a comma at every third 
position in the numeric field. Overflows occur when the 
field isn't large enough. 

PRINT USING "«»#«#»»«#,"," 12345678 
12,345,678 

PRINT USING "»««##««#«," 5 123456789 
%123 ,456,789 

PRINT USING "### ,»»« ,««#" ; 123456789 
123 ,456 ,789 

When you place two asterisks at the beginning of the nu- 
meric field, the computer fills all unused positions to the left 
of the decimal with asterisks. The two asterisks establish 
two more positions in the numeric field. 

PRINT USING "#*«««#"; 44,0 
*##*44 
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$ Placing a dollar sign ahead of the numeric field causes 

the computer to place a dollar sign ahead of the 
number when displaying it. This, of course, is handy 
when you are working with money. 

PRINT USING "$«»#,##" 5 18.6735 
$ 18,67 

$$ Two dollar signs placed at the beginning of the field cause 

the computer to display a floating dollar sign immediately 
preceding the first digit. 

PRINT USING "$$««,«#"? 18,6735 
$18,67 

**$ You can place this combination of symbols at the beginning 

of the field also. If you do, the computer fills the vacant po- 
sitions to the left of the number with asterisks and places a 
dollar sign in the position immediately preceding the first 
digit. 



PRINT USING 
#$8,33 



"**$,»»" ; 8.333 



When you place a plus sign at the beginning or end of the 
field, the computer precedes all positive numbers with a 
plus sign and all negative numbers with a minus sign. 

PRINT USING "+**#»»#tt" i 75200 
♦♦+75200 



PRINT USING 
-216 



'+*##" ; 



:i6 



When you place a minus sign at the end of the field, the 
computer follows all positive numbers with a space and 
precedes all negative numbers with a minus sign. 

PRINT USING "#»##,«-'«; -8124,4; 
8124,4- 



>0 



Do you have all that 
memorized? 



PRINT USING "% 
BLUE'S 



%" ! "BLUE'S STORE" 



To see PRINT USING in use, run the following program: 

5 CLS 

10 A$ = "##$#»»»»««««,«« DOLLARS" 

20 INPUT "WHAT'S YOUR FIRST NAME"? F$ 

30 INPUT "WHAT'S YOUR MIDDLE NAME"! M$ 

40 INPUT "WHAT'S YOUR LAST NAME"! L$ 

50 INPUT "ENTER THE AMOUNT PAYABLE"! P 

60 CLS 

70 PRINT "PAY TO THE ORDER OF "i 

80 PRINT USING " ! " 5 F$ 5 " . " M$ 5 " , " 5 

90 PRINT L$ 

100 PRINT: PRINT USING A$ 5 P 

110 GOTO 110 

Line 10 defines the format, using **$ to fill the leading spaces with as- 
terisks and placing a dollar sign directly before the first number. This 
format is sometimes used to protect checks from being altered. 



To learn more about 
PRINT USING, experiment 
with this program: 



5 CLS 




10 


INPUT 






"FORMAT" !F$ 


20 


INPUT 


"ITEM 




LIST" i 


I 


30 


PRINT 

f$;i 


USING 


40 


GOTO 5 





This works fine for numeric 
data. For string data, 
change I in Lines 20 and 
30 to 1$. 
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Line 10 also sets up the numeric field using the # sign. Thus, when- 
ever you enter a number that is smaller than the numeric field, the 
computer precedes the number with asterisks to fill the unused spaces. 
Included in Line 10 are two more field specifiers,* the decimal point 
and the comma. 

The computer displays the decimal point at only those positions speci- 
fied. Because you tell the computer to include two places to the right 
of the decimal (for cents), the computer rounds all numbers of more 
than two digits to two digits. If you enter a number that has one or no 
digits to the right of the decimal point, the computer inserted zeros. 

The exclamation marks in Line 80 tell the computer to use only the 
first character (the initial) of F$ (your first name) and of M$ (your mid- 
dle name). 

DC-IT-'.OURSCLF >VOGLAM }2^, 

Change the program so that no leading asterisks appear on the 
check. 



DO-IT-YOURSELF PROGRAM 32-2 

Write a program that creates a table showing your income and ex- 
penses on a monthly basis. Don't bother to itemize your expenses; 
just calculate the totals and the net result (plus or minus). 

Use STRINGS to organize the table, making it flexible enough so 
you can use it month after month without changing the entire 
program. 



Net results? Is this tennis or 
big business ? 



POS 

POS is an input/output function that returns the current cursor position 
on the screen or the carriage position on the printer. Here is its syntax: 

J POS (device number) 

device number is (screen) or —7 (printer) 



PRINT TAB (8) POS(O) 

returns the number 8 at Column 8 in the current line. 

Note: The leading space before "8" causes it to appear in Col- 
umn 9. 

One way to use POS is to disable the "wrap-around" feature on the 
screen or the printer. Doing this prevents words from being broken in 
the middle. On the other hand, it necessarily shortens the line length. 
Run the following program to see POS at work: 

5 CLS 

10 A* = INKEY* 

20 IF A* = "" THEN 10 

30 IF POS (0) > 22 THEN IF A$ = CHR*(32) THEN 

A$=CHR*C 13} 
a§ PRINT A$j 
50 GOTO 10 

This program lets you use the keyboard as a typewriter (except that 
you can't correct mistakes unless you first disable the printer). POS 
watches the end of the line so no word is divided. 
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In Line 30, the computer checks to see if the "current" cursor position 
is greater than Column 22. (The screen is 32 columns wide.) If the cur- 
sor passes Column 22, the computer begins a new line the next time 
you press the space bar (CHR$(32)). When the computer decides to 
begin a new line, it does so by printing a carriage return (CHR$(13)); 
in effect, the computer presses (ENTER) . 



We chose to test cursor 
position 22 since it was 10 
spaces less than the maxi- 
mum screen width, 32; 
that gives plenty of room 
to complete a long word. 



I 

; 

I 
I 



DO-IT-YOURSELF PROGRAM 32-3 jj 

Write a program that uses POS to space words evenly on a single J 
line. I 



De-Vice Squad 



Did you ever think of your video display as an "output" device and 
your keyboard as an "input" device? 




With PRINT, PRINT USING, LINE INPUT, and POS, you can use de- 
vice numbers to direct input or output. For instance, suppose you type: 



PRINT #-2» USING "»«#,»»#" i 1 23 , 45G78 (ENTER) 

The screen remains "silent" while the printer prints: 

123. 45G 

You can use any of the available field specifiers with PRINT #-2, 
USING. 

POS(-2) returns the printer's current print position (the current carriage 
position). Run the following program: 



5 CLS 
10 FOR I 



1 TO 10 



20 PRINT »-2 > "*" 5 

30 PRINT "PRINTER P0S="; POS ( 

40 NEXT I 

50 PRINT tt-2 t" " 



The screen shows the print carriage position as it changes. Note that 
the position is figured internally, not mechanically. Most printers can't 
print until Line 50 executes. 
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LINE INPUT # works similarly, with the one difference that it lets you 
read a "line of data" from a cassette file. 

LINE INPUT # reads everything from the first character up to which- 
ever of the following comes first: 

A carriage-return character that is not preceded by a line- 
feed character 

The 249th data character 

The end-of-file 

Other characters encountered (quotes, commas, leading blanks, and 
line feed/carriage return sequences) are included in the string. For 
instance: 

LINE INPUT #-1,A$ 

inputs a line of cassette file data into A$. 

The following program uses LINE INPUT # to count the number of 
lines in any cassette-stored program that is CSAVEd in ASCII format 
(using the A option): 

10 CLEAR 500 

20 LINE INPUT "NAME OF DATA FILE? "!F$ 

30 K=0 'K IS THE COUNTER 

40 OPEN "I" »-l ,F$ 

50 IF EOF (-1 ) THEN 100 

60 LINE INPUT #-1 , A$ 

70 K=K+1 

80 PRINT A$ 

90 GOTO 50 

100 CL0SE#-1 

110 PRINT "FILE CONTAINED" iKT'LINES" 



Learned in Chapter 32 



BASIC WORDS 

LINE INPUT 
PRINT USING 

POS 



CONCEPTS 

Inputting a line from the keyboard 
Displaying strings and numbers in a cus- 
tomized format 

Determining the current cursor position or 
the current carriage position 



Notes 
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CHAPTER 33 



A LITTLE BYTE 
OF EVERYTHING 



This chapter contains a hodge-podge of Extended Color BASIC features 
that don't fit neatly into categories but that, nonetheless, can be very 
helpful. 




LET 

Many versions of BASIC require that you use LET whenever you assign 
a value to a variable as in the statement LET X = 5. Although extended 
Color BASIC does not require LET, you may want to use it anyway. 
One reason is to ensure compatibility with those versions of BASIC 
that do require it. 

For example, these statements are the same: 

10 LET A$ = "A#" 
10 A$ = "A#" 

TRON/TROFF Commands 

TRON ("trace on") and TROFF ("trace off") are debugging aids that 
help you trace the execution of program statements. 

TRON turns on a "tracer" that displays each line number of the pro- 
gram as it is executed. The numbers appear enclosed in brackets. 
TROFF turns off the tracer. 

Examples: 



TRON (ENTER) 



TROFF (ENTER) 
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Trace the execution of the "Lines" program. Type TRON (ENTER) . 
Then run the program: 

5 PCLS 

10 PMODE 3,1 

20 SCREEN 1 ,1 

30 LINE (0 ,0)- (255 ,191 ) ,PSET 

The computer displays: 

(5) (10) (20) (30) 
OK 

This display indicates that the program first exe cuted L ine 5, then 10, 
20, and finally 30. Remember to type TROFF (ENTER) to turn off the 
tracer. 



Time After Timer . . . 

(TIMER) 

Your computer also has a built-in "timer" that measures time in six- 
tieths of a second (approximately). The moment you power-up the 
computer, the timer begins counting at zero. When it counts to 65535 
(approximately 18 minutes later), the timer starts over at zero. It pauses 
during cassette and printer operations. 

At any instant, you can see the count of the timer by using the TIMER 
function. Type: 



PRINT TIMER (ENTEH) 
The TIMER function displays a value from to 65535. 
You can also reset the timer to any specified time by typing: 



TIMER = number (ENTER) 

number is in the range to 65535. 

To see TIMER (and PRINT @ USING, another "new" function), run the 
following program called "Math Quiz." It presents you with a math 
problem. When you press QD, CD, 3D, or QD, the computer tells 
you whether the answer is right or wrong. Then the computer uses the 
timer to tell you the time you took to answer (using TIMER). 

10 DIM CH(3) ,L$(3) 'CH(#)=CH0ICES » 

L$=ANSWER FORMATS 
20 LL=10:UL=20 'LOWER LIMIT AND UPPER LIMIT 

FOR H AND V 
30 NU=UL-LL+1 

40 P$="WHAT'S *## + ### ?" 'QUESTION FORMAT 
50 FOR I = TO 3 'INITIALIZE CH( ) 
G0 L$( I )=CHR$( I+S5) + " ) ###" 
70 NEXT I 
80 CLS 
90 X=INT(RND<NV(+LL-.5) 'GET RANDOM X 

BETWEEN LL AND UL 
100 Y=INT(RND(NV)+LL-,5) 'GET RANDOM Y 

BETWEEN LL AND UL 
110 R=INT(X+Y+,5) 'CORRECT ANSWER 
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130 FOR I = TO 3 'GET MULT. CHOICES 

140 CH( I )=INT(RND(NM)+LL-.5) 

150 NEXT I 

1G0 RC=RND(4)-1 'MAKE ONE CHOICE RIGHT 

170 CH(RC)=R 

180 PRINT @ 32, USING P$!X,Y 

'DISPLAY PROBLEM 
190 FOR LN=3 TO G 
200 PRINT @ LN * 32+10»USING L$(LN-3)iCH 

(LN-3) 
210 NEXT LN 
220 TIMER = 

230 A$=" " 'CLEAR KEYBOARD 
240 A*=INKEY$: IF A$="" THEN 240 
250 SU=TIMER 'IF KEY PRESSED, SAME TIMER 

CONTENTS 
2G0 IF A$<"A" OR A$>"D" THEN 240 'INVALID 

KEY-GO BACK 
2G5 PRINT @ 8 * 32+10 »A$ 
270 K=ASC(A$)-G5 

280 IF CH(K)=R THEN PRINT "RIGHT!": GOTO 300 
290 PRINT "WRONG! ANSWER IS "5 R 
300 PRINT "YOU TOOK" - , SM/G05 "SECONDS" 
310 INPUT "PRESS <ENTER> FOR NEXT PROBLEM"; 

EN 
320 GOTO 80 

Through trial and error, change the upper and lower limits (Line 20) 
for h and v. Make the program perform a mathematical operation other 
than addition or have the computer keep score, based on your time. 
Add 5 seconds for each incorrect answer. 

Hexadecimal and Octal Constants 

Extended Color BASIC lets you use both hexadecimal and octal 
constants. 

Hexadecimal numbers are quantities represented in Base 16 notation, 
composed of the numerals to 9 and the "numerals" A to F. Hexa- 
decimal constants must be in the range to FFFF, corresponding to the 
decimal range to 65535. 

To indicate that a number is an octal constant, precede it with the 
symbol &H, as shown here: 

&HA010 &HFE &HD1 &HC &H4000 

Octal numbers are quantities represented in Base 8 notation, com- 
posed of the numerals to 7. Octal constants must be in the range 
to \77777 . The computer stores them as two-byte integers that corre- 
spond to the decimal range to 65535. 

To indicate that a number is an octal constant, precede it with the 
symbol &O or &, as shown here: 

&O70 ' &044 U1 777 &7170 &17 &01234 

The use of "hex" and octal constants is convenient in programs that 
reference memory locations and contents. For further information, read 
a book on machine-language programming. 
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HEX$ 

To convert a number from decimal to hexadecimal, use HEX$. The 
syntax is as follows: 

HEX$ (number) 

number is a decimal number of variable from to 655.5.5. 

For example, the following program displays the hexadecimal value of 
any decimal number smaller than 65536. It returns a string that repre- 
sents a hex value. 

5 CLS 

10 INPUT "IF A NUMBER'S DECIMAL VALUE IS"! 

DEC 
20 PRINT "ITS HEXADECIMAL VALUE IS " 

HEX* (DEC) 



Learned in Chapter 33 



BASIC WORDS 

LET 

TRON, TROFF 

TIMER 

HEX$ 



CONCEPTS 

Using LET to make programs compatible 

with other versions of BASIC 

Using the tracer to follow the execution 

of program statements 

Keeping track of and changing the time 

in a program 

Converting a number from decimal to 

hexadecimal 



Notes 
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Chapter 34 

USING MACHINE- 
LANGUAGE SUBROUTINES 



"Machine-language" (ML) is the low-level language that your computer 
uses internally. It consists of microprocessor instructions. ML subroutines 
are useful for special applications simply because they can do things 
much faster than BASIC. 

Writing such routines requires familiarity with assembly-language pro- 
gramming and with the microprocessor's instruction set. For more infor- 
mation, see 6809 Assembly Language Programming, Lance Leventhal, 
Osborne/McGraw Hill, 1981. 




This section follows the step-by-step approach for using ML subroutines: 

1 . Protecting Memory 

2. Storing the ML Subroutine in Memory 

3. Telling BASIC Where the Subroutine Is 

4. Calling the Subroutine 

5. Returning to BASIC 

We present a sample BASIC program that performs all five steps. You 
may type in the BASIC program lines as they are given, but don't try to 
run the program until you've read all the steps. 

Our ML subroutine is simple. It gets a character from the keyboard. 
Then it returns the ASCII code for this character to the BASIC program. 
An assembly-language listing of this routine is later in this section. 

Our ML subroutine has a few features not available with BASIC'S IN- 
KEY$ or INPUT statements. First, it returns any key code, including the 
one for (BREAK ). Second, it lets you key in control codes A-Z (CTRL-A 
through CTRL-Z). 

To key in a control character, press CD, release it, then press any key 
from QD to CD- The control codes generated range from 1 to 26. 
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STEP T. PROTECTING MEMORY 

With the CLEAR statement, you can reserve a section of memory for 
storing your ML subroutine. The first CLEAR parameter sets the string 
space; the second sets the memory protection address. For example: 

5 CLEAR 25 , 12000 

sets the string space to 25 bytes and reserves memory addresses from 
12000 to the end of memory (see the Memory Map). You can now 
safely store your ML subroutine in this area. 

STEP 2. STORING THE ML SUBROUTINE IN MEMORY 

You can load an ML subroutine from tape (via CLOADM), or you can 
poke it into memory (using the BASIC POKE statement). In our example, 
we'll store the individual machine codes in DATA statements, then read 
and poke each code into the correct memory address. The codes are in 
the ML subroutine's assembly listing, shown later in this section. 



20 


FOR I = 1 TO 28 






30 


READ B: POKE 12000 + I 


> B 




40 


NEXT I 






50 


DATA 173 , 159 , 160 > 






60 


DATA 39 , 250 , 129 > 10 , 


38 > 


12 


70 


DATA 173 , 159 t 160 , > 


39 > 


250 


75 


DATA 129 , G5 , 45 , 2 






80 


DATA 128 , 64 , 31 > 137 > 


79 




90 


DATA 12G » 180 > 244 







STEP 3. TELLING BASIC WHERE THE SUBROUTINE IS 

Before you can use the ML subroutine, you have to tell BASIC where 
the routine starts. Do this with the DEFUSR statement, which has this 
format: 

DEFUSRn = address tells where, in memory an ML subroutine 
starts 

n is the number of the ML subroutine (0-9). 
address is the first address in memory where the ML subrou- 
tine is stored. 

In this example, the ML subroutine (which we'll call ML Subroutine 1) 
is stored in memory starting at Address 12000. To tell this to BASIC, use 
this statement: 

10 DEFUSR1 12000 

STEP 4. CALLING THE SUBROUTINE 

To "call" the ML subroutine, use the USR function with this format: 

dummy variable = VSRn(argument) calls an ML subroutine 

n is the number of the ML subroutine (0-9). 

argument is a value you want to pass to the ML subroutine. 

dummy variable is a variable you can use to store the data 

returned bv USR 



For example: 

1 10 A = USR1 (0! 
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calls ML Subroutine 1 and passes it Argument 0. In this example, is a 
"dummy argument." The ML subroutine won't use it. (The purpose of 
Variable A is explained in the next step.) 

STEP 5. RETURNING TO BASIC 

If you want to return a specific integer value to BASIC, as we do in this 
example, your ML subroutine must: (1) load the integer into Register D, 
(2) end by calling GIVABF, a special ROM subroutine. GIVABF causes 
your BASIC program's USR function to "return," replaced by the integer 
you stored in Register D. 

In this example, our ML subroutine loads the key you press into Register 
D and then calls GIVABF. This causes USR to return replaced by the key 
you press. Since Variable A equals the value USR returns, Variable A 
equals the key you press. 

If you don't want to return a specific value to BASIC, end the subroutine 
with an RTS instruction. USR "returns" your original dummy argument 
(0). 



The address of GIVABF is 
Hexadecimal B4F4 or Deci- 
mal 46324. However, if you 
have Advanced Color 
BASIC or Extended Color 
BASIC Version 1.2 or later, 
this address may have been 
changed. 



^ 



The BASIC Program 



This is the entire program with the ML subroutine poked into memory. 
Type it in carefully; then run it. 

Each time you press a key, control returns to BASIC with t he ASC II code 
for that key. Try pressing (BREAK) . You'll get the code for (BREAK) 3. The 
BASIC program ends when you press (ENTER) or QD (JD- 

To get any of the codes 1 through 26, press QD, release it, then press a 
key from QD to CD- 

5 CLEAR 25 > 12000 'RESERVE MEMORY 

10 DEFUSRi=1200015 CLS 

20 FOR I = 1 TO 28 "STORE EACH BYTE OF OBJECT 

CODE 
30 READ B: POKE 12000 + I > B 
40 NEXT I 

THE OBJECT CODE 

159 , 1G0 , 
250 , 120 i 10 » 
159 » 1G0 » f 
G5 > 45 * 2 
64 , 31 > 137 , 

180 t zaa 

TELL BASIC WHERE THE ROUTINE IS 
POKE 275* 15s POKE 27B , 211 



45 'HERE IS 
50 DATA 173 
G0 DATA 
70 DATA 

DATA 

DATA 
90 DATA 
99 
100 



75 
80 



39 t 
173 
129 
128 
12G 



38 t 

39 * 

79 



12 
250 



110 A = USRK0) 'CALL THE SUBROUTINE AND GIUE 

RESULT TO A 
1 15 IF A = 13 THEN END 
120 PRINT "CODE = " 5 A 
130 GOTO 1 10 

For a variation in the program, change line 120 to: 

120 PRINT CHRftA); 'DISPLAY THE CHARACTER 

Most control keys (CO followed by a key) have no effect when printed. 
Try QD QD, though, and you see the cursor backspace. 



If you have a Deluxe Color 
Computer, use the (BSD 
key, rather than QD. 



^ 
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ML Subroutine Listing 



This is the assembly-language listing of our ML subroutine example. To 
use it, you must have an assembler, such as EDTASM (Catalog #26- 
3250) or Disk EDTASM (Catalog #26-3254). You can't use this assem- 
bly-language listing from BASIC. 

Hexadecimal Source Code Comments 

Object Code 

5P0LL FOR A KEY 
!IF NONE t RETRY 
5CTRL KEY (DN 

ARW>? 
!N0 t SO EXIT 
(POLCAT) 5YES. SO GET NEXT 

KEY 
5 IF NONE , RETRY 

;is IT A - z? 

UF < A t EXIT 
;C0NMERT TO CTRL 
A/Z 

;get return byte 

READY 
!ZER0 MSB 

;return value to 

BASIC 



Assembly language is not 


AD 


SF 


A0 


00 


L00P1 


JSR 


(POLCAT 


meaningful to the com- 
puter. It is a set of memory 
aids and symbols we use 


27 
81 


FA 
0A 








BEQ 
CMPA 


L00P1 

#10 


for convenience. Assembly 
language must be trans- 
lated, or "assembled," into 


26 
AD 


0C 

9F 


A0 


00 


L00P2 


BNE 
JSR 


OUT 

( POLCA 


machine code, which the 
















computer understands. In 


27 


FA 








BEQ 


L00P2 


the listing above, the ma- 


81 


20 








CMPA 


*65 


chine code is given in hex- 


2D 


02 








BLT 


OUT 


adecimal form. We 
converted it to decimal 


Si 


40 








SUBA 


#64 


numbers for our BASIC 
program. 


IF 
4F 


89 






OUT 


TFR 
CLRA 


A »B 








7E 


B4 


F4 






JMP 


GIUABF 




POLCAT 


EOU 


40960 








GIUABF 


EQU 


46324 







Passing Values to an ML Subroutine 



The address of INTCNV is 
Hexadecimal B3ED. How- 
ever, if you have Advanced 
Color BASIC or Extended 
Color BASIC Version 1.2 or 
later, this address may have 
been changed. 



USING THE INTCNV ROUTINE 

If you want to pass an integer to your ML subroutine, use the integer as 
the "argument" in your USR function. For example: 

A = LISRi (5) 

calls Machine Code Program 1 and passes the argument 5 to it. You 
can then call the INTCNV routine, which gets the integer and stores it 
in Register D. 



USING THE VARPTR FUNCTION 

Another way to pass an argument to your ML Subroutine is to pass a 
"pointer" to the address where a variable's value is stored. You can do 
this with the VARPTR function: 

VARPTR variable returns a pointer to where the variable's value is 

stored ■ 

For example: 

A = USR1 SMARPTRC8) ) 

calls ML Subroutine 1 and passes a pointer to Variable B's address. The 
pointer is stored in Register X. Your ML subroutine needs to know 
whether the variable is string or numeric. 
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If the variable is string, your ML subroutine can find the string's 5-byte 
descriptor in Register X. This descriptor tells where the string is: 

Byte 1 = the length of the string (in characters) 
Byte 2 = reserved for the computer's use 
Bytes 3 and 4 = address of the first byte in the string 
Byte 5 = reserved for the computer's use 

If the variable is numeric, your program can find the address of the 
number's floating point value in Register X. This floating point value has 
this format: 

Byte 1 = the exponent of the mantissa 

Byte 2 = the mantissa's most significant byte (MSB) 

Byte 3 = the mantissa's next MSB 

Byte 4 = the mantissa's next MSB 

Byte 5 = the mantissa's least significant byte (LSB) 

The exponent is a signed 8-bit integer with 128 decimals added to it. 
An exponent of means the number is 0, in which case the mantissa is 
insignificant. The exponent's most significant bit stores the exponent's 
sign: if positive, 1 if negative. 

The mantissa is stored in normalized form with the most significant bit 
of the mantissa's MSB assumed to be 1. This bit can indicate the man- 
tissa's sign: if positive, 1 if negative. 

You may want to use VARPTR to pass an array variable's pointer to an 
ML subroutine. For example: 

A = USR1 (MARPTR(B(5) ) 

calls ML Subroutine 1 and passes a pointer to Array B's Element 5. 

Your ML subroutine can find the elements' values in memory as follows 
(from low to high memory): 

Value of first element of last dimension 

Value of last element of last dimension 

Value of first element of first dimension 

Value of last element of first dimension 

Each element is five bytes long. 

Returning Values to BASIC 

USR always returns at least one value to BASIC. This value is the argu- 
ment you originally pass to the ML subroutine, unless your ML subrou- 
tine changes or modifies it, as described below. 

USING GIVABF TO RETURN AN INTEGER 

To return a specified integer to BASIC, you can have your ML subroutine 
load the integer into Register D and call GIVABF, as demonstrated 
earlier. 

MODIFYING BASIC VARIABLES 

You can return any specified value to BASIC by having your ML subrou- 
tine modify a BASIC variable's value. For example, assume you call an 
ML subroutine with this statement: 
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A*=(USR1 <UARPTR(B$) ) 

You can have your ML subroutine modify B$'s value and then end the 
routine with an RTS instruction. This causes USR to return with B$'s 
modified value. 



If your ML subroutine modifies a string variable, be careful of the 
following: 

Although you can change a string descriptor's length byte to 
"shorten" a string, you cannot "lengthen" a string. If you 
don't know what size string your ML subroutine will return, 
reserve 255 bytes (the maximum size) for the string's value 
before passing it to the ML subroutine. For example: 

B*=STRING$(255) 

A$ = USR0(MARPTR(B$) ) 

passes a pointer to a 255-character string of blank spaces to 
the USR function. The ML subroutine can then put a string 
of up to 255 characters into the memory pointed to by B$ or, 
if necessary, shorten the string's length byte. 

You can modify the starting address of a string by changing 
the 2-byte pointer in the string descriptor. When you do this, 
though, we recommend the new starting address be an ad- 
dress included in the original string. 

You can swap the starting addresses of two strings. This may 
be useful for sorting strings. If you do this, though, be careful 
not to "intersect" two strings. 

If your ML subroutine modifies a variable that already points 
to a string literal, this will change your BASIC program. For 
example, assume you have this statement in your BASIC 
program: 

B$ = "ABC" 

if your ML subroutine modifies B$, your BASIC program is 
changed. To avoid this problem, add a null string ("") to any 
string literal that your ML subroutine will modify. For 
example: 

B$ = "ABC" + "" 

The null string forces BASIC to copy the string into string 
space, where your ML subroutine can safely modify it. 



Using Stack Space 



An ML subroutine, cailed by USR, that requires more than J(J bytes of 
stack storage must provide its own stack area. Save BASIC'S stack 
pointer upon entry to the USR function, setting up a new stack pointer 
and restoring BASIC'S stack pointer prior to returning to BASIC. The val- 
ues of the A, B, X, and CC registers need not be preserved by USR. 
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Notes 
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SECTION V 



ODDS AND ENDS 



SUGGESTED ANSWERS 

TO DO-IT-YOURSELF 

PROGRAMS 

Do-It- Yourself Program 4-4 

Sounding tones from bottom of range to top and back to bottom: 

10 FOR X = 1 TO 255 

20 SOUND X »1 

30 NEXT X 

40 FOR X = 255 TO 1 STEP -1 

50 SOUND X>1 

B0 NEXT X 

Do-It- Yourself Program 5-2 

Lines added to clock program: 

32 FOR T = 200 TO 210 STEP 5 

34 SOUND T .1 

35 NEXT T 

37 FOR T = 210 TO 200 STEP -5 

38 SOUND T ,1 

33 NEXT T 

Do-lt- Yourself Program 5-3 

10 FOR C = TO 8 

20 CLS(C) 

30 FOR X = 1 TO 460 

40 NEXT X 

50 NEXT C 

Do-It- Yourself Program 7-2 

5 FOR N = 1 TO 10 

10 PRINT "CHOOSE YOUR CHAMBER ( 1 - 1 ) " 

20 INPUT X 

30 IF X = RND( 10) THEN 100 

40 SOUND 200 > 1 

50 PRINT "--CLICK--" 

60 NEXT N 

G5 CLS 

70 PRINT @ 230 , "CONGRATULATIONS! ! ! " 

80 PRINT @ 265. "YOU MANAGED" 

30 PRINT @ 236, "TO STAY ALIVE" 

35 END 

100 FOR T = 133 TO 1 STEP -5 

110 PRINT "BANG! MM " 

120 SOUND T , 1 

130 NEXT T 

140 CLS 

150 PRINT @ 230. "SORRY* YOU'RE DEAD" 

160 SOUND 1 , 50 

170 PRINT @ 230. "NEXT VICTIM PLEASE" 
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Do-It- Yourself Program 7-3 



10 CLS 




20 A = RND(G) 




30 B = RND(G) 




40 R = A + B 




50 PRINT @ 200 , 


A 


G0 PRINT @ 214 , 


B 


70 PRINT @ 394 > 


"YOU ROLLED A" R 


80 IF R = 2 THEN 


G00 


30 IF R = 3 THEN 


G00 


100 IF R = 12 THEN G00 


1 10 IF R = 7 THEN 500 


120 IF R = 11 THEN 500 


130 FOR X = 1 TO 


800 


140 NEXT X 




150 CLS 




1G0 PRINT @ 195 , 


"ROLL ANOTHER" R "AND YOU 


WIN" 




170 PRINT @ 2G2 > 


"ROLL A 7 AND YOU LOSE" 


180 PRINT @ 420 , 


"PRESS < ENTER > WHEN READY 


185 PRINT @ 45G > 


"FOR YOUR NEXT ROLL" 


190 INPUT A$ 




200 X = RND(G) 




210 Y = RND(G) 




220 Z = X + Y 




225 CLS 




230 PRINT @ 200 , 




240 PRINT @ 214 , 


Y 


250 PRINT @ 394 > 


"YOU ROLLED A" Z 


2G0 IF Z = R THEN 


1 500 


270 IF Z = 7 THEN 


1 G00 


280 GOTO 180 




500 FOR X = 1 TO 


1000 


510 NEXT X 




515 CLS 




520 PRINT @ 230 , 


"YOU'RE THE WINNER" 


530 PRINT @ 294 , 


"CONGRATULATIONS! ! ! " 


540 GOTO G30 




G00 FOR X = 1 TO 


1000 


G10 NEXT X 




G15 CLS 




G20 PRINT @ 2G4 , 


"SORRY , YOU LOSE" 


G30 PRINT @ 458 , 


"GAME 'S OYER" 



Do- It- Yourself Program 8-2 

5 CLS 

G PRINT @ 230 , "YOUR NAME"! 

8 INPUT N$ 

10 CLS 

15 T = T + 1 

20 X = RND( 100) 

30 Y = RND( 100) 
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, "WHAT IS" X "+" y; 
THEN 82 



'THE ANSWER IS" X + Y 
'BETTER LUCK NEXT TIME t' 



N$ 



40 PRINT 6 228 
45 INPUT A 
50 IF A = X + Y 
60 PRINT 6 326 
70 PRINT @ 385 
80 GOTO 100 

82 CLS(7) 

83 FOR M = 1 TO 4 

84 SOUND 175 t 1 

85 SOUND 200 , 1 
8G NEXT M 

87 CLS 

30 PRINT 6 232, "CORRECT," N$ " ! ! ! " 

35 C = C + 1 

37 PRINT @ 233 > "THAT IS" 

38 PRINT 6 322, C "OUT OF" T "CORRECT 
ANSWERS" 

99 PRINT @ 362, C/T*100 "% CORRECT" 'IF T=10 THEN 
END 

100 PRINT 6 420, "PRESS < ENTER > WHEN READY" 
102 PRINT @ 458, "FOR ANOTHER" 

105 INPUT A$ 
110 GOTO 10 



Do-It- Yourself Program 10-1 



5 CLS 

7 PRINT @ 38, "TABLE OF SQUARES" 

8 PRINT 
10 P = 2 

20 FOR N = 2 TO 10 

25 GOSUB 2000 

30 PRINT N "*" N " = " E » 

40 NEXT N 

50 END 

2000 REM FORMULA FOR RAISING A NUMBER TO A 

POWER 
2010 E = 1 
2020 FOR X = 1 TO P 
2030 E = E * N 
2040 NEXT X 

2050 IF P = THEN E = 1 
2060 RETURN 

Do-It- Yourself Challenger Program (Chap. 11) 

10 PRINT "TYPE A SENTENCE :" 

15 INPUT S$ 

20 PRINT "TYPE A PHRASE TO DELETE" 

23 INPUT D$ 

25 L = LEN(D$) 

30 PRINT "TYPE A REPLACEMENT PHRASE" 

35 INPUT R$ 

40 FOR X = 1 TO LEN(S$) 

50 IF MID$(S$»X»L) = D$ THEN 100 
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B0 NEXT X 

70 PRINT D$ "-- IS NOT IN YOUR SENTENCE" 

80 GOTO 20 

100 E = X - 1 + LEN(D$) 

110 NS* = LEFT$(S$ ,X-1 ) + R$ + 

RIGHT$(S$ ,LEN(S$) - E) 
120 PRINT "NEW SENTENCE IS :" 
130 PRINT NS$ 



Do-It- Yourself Program 14-2 



5 PMODE 1 ,1 

10 PCLS 

20 SCREEN 1 ,1 

30 X = RND(256) -1 

40 Y = RND( 192) -1 

50 C = RND(9) -1 

S0 PSET(X ,Y ,C) 

70 GOTO 30 



Do-It- Yourself Program 1 5-1 



5 PMODE 1 ,1 

10 PCLS 

20 SCREEN 1 , 1 

25 LINE (0 ,0)-(255 ,191 ) ,PSET 

30 LINE (0 ,191 )-(255 ,0! , PSET 

35 LINE ( 10,10)-(255 ,191 ) »PSET »B 

40 GOTO 40 

Do-It- Yourself Program 1 5-2 

5 PMODE 1 ,1 

10 PCLS 

20 SCREEN 1 ,1 

30 LINE (72,lG8)-<200 ,72) , 

PSET,B 'FRAME 

40 LINE (72 ,72)-( 13G,3G) , 

PSET 'ROOF 

45 LINE <200»72)-< 13B»3B) , 

PSET 'ROOF 

50 LINE ( 120 ,lG8)-( 152,100) , 

PSET,B 'DOOR 

55 LINE ( 152 ,60)-( 1G8 ,36) , 

PSET,BF 'CHIMNEY 

B0 LINE ( 1B5 ,128)-( 191 ,100) , 

PSET,B 'WINDOW 

B5 LINE C 178 ,128)-( 178 ,100) , 

PSET 'WINDOW PART 

70 LINE ( 1B5 ,114)-( 191 ,114) , 

PSET 'WINDOW PART 

75 LINE (85 ,128)-( 111 ,100) , 

PSET,B 'WINDOW 
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80 LINE (B5,114)~( 111 ,114) , 

PSET 'WINDOW PART 

85 LINE (98 »100)-<38 ,128) » 

PSET 'WINDOW PART 

90 GOTO 90 



Do-It- Yourself Program 15-3 



5 PMODE 1 ,1 

10 PCLS 

20 SCREEN 1 ,1 

30 Y = 

40 FOR X = TO 200 STEP 10 

50 OY = Y 

G0 Y = 30-OY 

70 LINE (X , 100-Y)-(X+10 , 100-OY) .PSET 

80 NEXT 

90 GOTO 90 



Do- It- Yourself Program 16-1 



1 Y = -1 

5 CLS 

10 PRINT @ 193, "DO YOU WANT TO SEE A SQUARE?" 

20 FOR X = 1 TO 1000: NEXT X 

30 PMODE 1 ,1 

35 PCLS 

40 SCREEN 1 ,Y+1 

G0 LINE (75 ,150)-( 150 ,75) ,PSET»B 

70 FOR X = 1 TO 1000: NEXT X 

75 Y = -Y 

80 GOTO 5 



Do- It- Yourself Program 18-1 

Make the following changes: 

22 PCOPY 4 TO 3 
32 PCOPY 3 TO 2 
42 PCOPY 2 TO 1 

Delete Lines 11, 21, and 31. 

Do-It- Yourself Program 18-2 

10 PCLEAR 8 

20 PMODE 4 »1 

25 PCLS 

30 SCREEN 1 ,1 

40 LINE (0 ,0)-(255 ,191 ), PSET 

45 FOR Y = 1 TO 20: NEXT Y 

50 PMODE 4 ,2 
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55 SCREEN 1 .0 

60 LINE (0 .0) -(255 .191 ) .PSET 

65 FOR Z = 1 TO 20: NEXT Z 

70 PMODE .3 

75 SCREEN 1 .1 

80 LINE (0>0)-(255>191) .PSET 

85 FOR A = 1 TO 20: NEXT A 

90 PMODE 1 .4 

95 SCREEN 1 ,1 

96 PCLS 

100 LINE (0 .0) -(255 .191 ) .PSET 
105 FOR R = 1 TO 20: NEXT R 
110 GOTO 20 



Do-It- Yourself Program 1 9-1 



10 PMODE a .1 




20 PCLS 




30 SCREEN 1 .0 




40 FOR RADIUS = 


1 TO 100 STEP 1 


50 CIRCLE ( 128. 


96) .RADIUS 


G0 NEXT RADIUS 




70 GOTO 70 





Do-It- Yourself Program 1 9-3 



5 PMODE 4 . 


1 












10 


PCLS 














20 


SCREEN 


1 .0 












30 


CIRCLE 


(200 


.40) 


.30 > 


.1 > 


, 13 » 


.63 


40 


CIRCLE 


(230 


.10) 


.52 . 


.1 > 


.29 » 


.48 


50 


GOTO 50 















Do-It- Yourself Program 1 9-4 



5 PMODE 1 >1 

10 SCREEN 1 »0 

15 PCLS 3 

20 COLOR 1 »0 

25 CIRCLE (200 »40) »30 » »1 ». 13 » .63 'MOON 

30 CIRCLE (230 >10)»52»»1».29>.48 'MOON 

35 LINE ( 100 »185)-( 180*125) »PSET »B 

'HOUSE FRAME 
40 LINE -(140»85) »PSET 'ROOF 
45 LINE -( 100 »125) »PSET 'ROOF 
55 LINE (110»160)-( 125 »130) »PSET »B 

'WINDOW 
60 LINE (155.160) -(170.1 30) .PSET.B 

'WINDOW 
70 LINE ( 130 .130)- ( 149.185) .PSET »B 

'DOOR 
75 PSET (134.157.1) 'DOOR KNOB 
80 LINE ( 160 .105)- ( 160 .90) .PSET 'CHIMNEY 
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85 LINE - ( 175 ,90) ,PSET 'CHIMNEY 
90 LINE -( 175 ,115) ,PSET 'CHIMNEY 
100 ' SMOKE STARTS HERE 
105 X=1G7:Y=89 'CIRCLE CENTERPOINT 
110 SP=0: EP=0 'CIRCLE START AND END 

POINT 
115 FOR R = 1 TO 50 STEP ,05 'CIRCLE RADIUS 
1Z0 EP=EP+,02: IF EP > 1 THEN EP = 
125 CIRCLE (X + R, Y-R ) »R ,4 » 1 »SP »E P 'SMOKE 
130 NEXT R 
200 GOTO 200 

Do-lt-Yourself Program 20-1 

Delete Line 40 and add Line 65: 

65 PAINT ( 150 ,100) ,8,8 

Do-It- Yourself Program 20-3 

5 PMODE 1 ,1 

10 PCLS 

15 SCREEN 1 ,0 

20 PCLS 3 

25 COLOR 1 ,0 

30 CIRCLE (200 ,30) ,15 

35 PAINT (200 ,30) ,2 ,1 

40 LINE (100,185)-(180,125),PSET,B 

45 LINE -( 140 ,90) ,PSET 

50 LINE -( 100 ,125) ,PSET 

55 PAINT ( 135 ,115) ,4 ,1 

60 LINE (110,1S0)-(125,130) ,PSET ,B 

B5 LINE ( 155 ,1G0) -( 170 ,130) ,PSET ,B 

70 PSET ( 134 ,157 ,1 ) 

75 PAINT ( 120 ,180) ,0 ,1 

80 LINE ( 130 ,130)- ( 149 ,185) ,PSET ,B 

85 LINE ( 101 ,135) -(41 ,185) ,PSET ,B 

90 LINE (91 ,140) -(51 ,185) ,PSET ,B 

95 PAINT (55 ,138) ,0 ,1 

100 PAINT (89 ,183) ,4 ,1 

105 FOR X = 1 TO 500: NEXT X 

1 10 PAINT (89 ,183) ,2 ,1 

115 FOR X = 1 TO 500: NEXT X 

120 PAINT (89 ,155) ,4 ,1 

140 GOTO 1 10 



Do-lt-Yourself Program 21-1 



5 PMODE 4 ,1 

10 PCLS 

20 SCREEN 1 ,0 
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30 DRAW "BMB8 > HB;E20;BE20;E20;F20;BF20; 

F20 ;i_40 ;bi_40 ;i_40 ;bu40 ;r40 ;br40 ; 

R40 5G20;BG20", G20",H20;BH20 ;H20;BM 128*96 ; 
NU40;ND40iNE20;NF20;NG20;NH20 5NL40IR40" 
40 GOTO 40 

The star you created probably isn't as fancy as this one because you 
haven't been introduced to B or N yet. But don't worry; you will be 
before the end of the chapter. 

Do-It- Yourself Program 21-2 

5 PMODE 4 ,1 

10 PCLS 

20 SCREEN 1 ,1 

25 DRAW "BM40 ,80 i U40 5R40 ! D40 5 L40 " 

30 DRAW "BM + 20 ,20 I U40 iR40 iD40 5 L40 " 

40 LINE (60 »100)-(40 ,80) »PSET 

50 LINE (60 f 60)- (40 >40) >PSET 

60 LINE ( 100 > 60)- (80 1 40) »PSET 

70 LINE ( 100 > 100)-(80 ,80) >PSET 

80 GOTO 80 

Do-It- Yourself Program 21-3 

5 PMODE 4 ,1 

10 PCLS 

20 SCREEN 1 ,1 

25 DRAW "BM50 > 50L30D30R30D30L30" 

30 DRAW "BM90 > 50D60R30U60" 

40 DRAW "BM160 >50D60R30BUS0L30D30R3O" 

50 GOTO 50 

Do- It- Yourself Program 21-4 

5 PMODE 4 >1 

10 PCLS 

20 SCREEN 1 ,0 

30 DRAW "BM98»9B;NU80;NE5B;NR80;NF5B; 

ND80;NG56;NL80;NH56" 
40 CIRCLE (98*96) , 80 >1 ,1 ,, 125 ,1 
50 CIRCLE (135,110) ,80,1 ,1 ,1 ,,125 
60 LINE (135,110)-(190 ,167) ,PSET 
70 LINE (135,110)-(213,110) ,PSET 
80 GOTO 80 



Do-It- Yourself Program 21-5 

1 CLEAR 2500 

5 DIM AZ$(25) 

6 FOR LE = TO 25 
10 READ AZ$(LE) 
15 NEXT LE 
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20 NC$="BR4BU7" 'NEXT CHARACTER 

25 NL$="BD4" 'NEXT LINE 

30 BS$="BL9" 'BACKSPACE 

35 HM*="BM0 »10" 'HOME POSITION 

100 CW=G: CH=8 'SIZE OF CELL 

110 Rl=7: R24=191 'ROW POSITION 

120 Cl=8: C42=247 'COLUMN POS 

125 CC=1: CL=1 'CURRENT ROW/COL 

200 PMODE 4 ,1 

210 PCLS 

220 SCREEN 1 i0 

225 DRAW "S4" 

230 DRAW HM$ 

250 A$=INKEY$: IF A$=" " THEN 250 

2G0 IF "A">A$ OR "Z" < A$ THEN 250 

2G2 CC=CC+ 1 

2G5 IF CC>27 THEN DRAW NL$ : FOR I = 1 TO 27: 

DRAW BS$: NEXT I:CC=1: GOTO 270 
2G9 DRAW NC$ 

270 DRAW AZ$< ASC< A$)-G5) 
290 GOTO 250 

1000 ' A 

1010 DATA BD1DGU4NR5U2E1R3F1DG 

1020 ' B 

1030 DATA ND7R4F1D1G1NL4F1D2G1NL4BR1 

1040 ' C 

1050 DATA BD1D5F1R3E1U1BU3U1H1L3G1BDGBR5 

10G0 ' D 

1070 DATA D7R4E1U5H1L4BD7BR5 

1080 ' E 

1090 DATA NR5D3NR4D4R5 

1100 ' F 

1110 DATA NR5D3NR4D4BR5 

1120 ' G 

1130 DATA BD1D5F1R3E1U2NL2BU2U1H1L3G1BDGBR5 

1140 ' H 

1150 DATA D7U4R5NU3D4 

11G0 ' I 

1170 DATA R4L2D7L2R4BR1 

1180 ' J 

1190 DATA BD5D1F1R3E1UGBD7 

1200 ' K 

1210 DATA D7U4R3E2NU1G2F2D2 

1220 ' L 

1230 DATA D7R5 

1240 ' M 

1250 DATA ND7R2ND7R2D7BR1 

12G0 ' N 

1270 DATA D1NDGE1R3F1DG 

1280 ' 

1290 DATA BD1D5F1R3E1U5H1L3G1BDGBR5 

1300 ' P 

1310 DATA ND7R4F1D2G1L4BD3BR5 

1320 ' 

1330 DATA BD1D5F1R3E1U5H1L3G1D4BR3F2 

1340 ' R 

1350 DATA ND7R4F1D1G1NL4F1D3 
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13G0 ' S 

1370 DATA BD1D1F1R3F1D2G1L3H1BU5E1R3F1BDG 

1380 ' T 

1390 DATA R4L2D7BR3 

1400 ' U 

1410 DATA DGF1R3E1U6BD7 

1420 ' V 

1430 DATA D5F2E2U5BD7BR1 

1440 ' W 

1450 DATA D7R2NUGR2U7BD7BR1 

14G0 ' X 

1470 DATA D1F5D1BL5U1E5U1BD7 

1480 ' Y 

1430 DATA D2F2ND3E2U2BD7BR1 

1500 ' Z 

1510 DATA R5D1G5D1R5 



Do-It- Yourself Program 21-6 



5 PMODE 3 ,1 

10 PCLS 

15 SCREEN 1 ,0 

20 draw "bm50 , 1 70 ! u80 ; ng30 je80 > f80 ? nf30 ! 

d80;l50;u70 ;l50id70;lg0" 
25 line (50 ,170) -( 170 .170) >pset 
30 line ( 1 10 ,170)-( 1g0 ,170) ,pset 
35 for x = 1 to 500: next x 
40 line ( 100,170)-( 1g0 ,170) »preset 
45 line (120 » 180) -(120 ,110) ,pset 
50 line ( 1g0 , 100)-( 125 ,110) ,pset 
55 line ( 1g0 , 170)-( 125 ,180) »pset 
g0 line ( 120 ,1b0)- (120 ,110) , preset 
g5 line ( 1g0 »100)-( 125 ,1 10) .preset 
70 line ( 1g0 ,170)~( 125 ,180) .preset 
75 draw "bm110 , 1 70 5 bu70 > br50 5 g25 i d70 ; e25 " 

80 CIRCLE (130,125) ,10, ,1 ,,135, ,9 

85 DRAW "BM130»130;D15;D15;G10?E10 5U15;L10' 

90 LINE ( 120 ,145)- ( 120 ,135) »PSET 

31 FOR X = 1 TO G0: NEXT X 

95 LINE ( 120 ,145)-(120 ,135) , PRESET 

9G FOR X = 1 TO 120: NEXT X 

100 LINE ( 120 ,145)-( 110 ,145) ,PSET 

101 FOR X = 1 TO B0: NEXT X 

105 LINE ( 120 ,145)- ( 1 10 ,145) , PRESET 

10G FOR X = 1 TO 60: NEXT X 

110 LINE ( 120 ,145)-( 120,135) ,PSET 

120 FOR X = 1 TO 120: NEXT X 

121 CIRCLE ( 130 ,125) ,10 ,1 

122 DRAW "BH130 ,1305C1 5 D30 ? G 1 J E 1 5 U 1 5 5 L 1 " 
125 DRAW "BM1 10 ,170;BU70 5BR50 iCl ; 

G255D705E25; " 
130 COLOR 4 ,1 

135 LINE (120,180)-(120,110) ,PSET 
140 LINE ( 1G0 ,100)-( 125 ,110) ,PSET 
145 LINE ( 1G0 ,170)-( 125 ,180) ,PSET 
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150 LINE < 120 , 180)- (120*110) , PRESET 
155 LINE ( 1B0 ,100) -( 125 , 1 10) (PRESET 
1G0 LINE U60 ,170) -(125 ,180) (PRESET 
1G5 LINE ( 110 »170)-< 1G0 ,170) ,PSET 
170 FOR X = 1 TO 500: NEXT X 
175 GOTO 20 

Do-It- Yourself Program 22-1 

5 PCLEAR 4 

10 PMOOE a ,1 

15 PCLS 

20 SCREEN 1 ,1 

25 DIM U(35 ,35) 

30 X=10: Y=10 

35 OR AN "BM10.10! S2 i H 1 5 R 1 5 5 F 1 5 R20 i F10 5 

gi0;l20;gi0;li5;ei0;u20;o4;nlb;o4;nli2; 

04NL1G5 04;NL12;04;NL8" 
40 GET (X-X ,Y-Y)-(X*3.5 ,Y*3,5) »U ,G 
45 A$=INKEY$: IF A$=" " THEN 45 'PRESS ANY 

KEY TO START 
50 PCLS 

55 FOR A = 10 TO 200 STEP 5 
B0 PUT (X + A ,Y)-(X + A + 35 ,Y + 35) »U ,PSET 
G5 NEXT A 
70 PCLS 
75 GOTO 55 

Notice that we've used the options for both GET and PUT. If you want 
this rocket to go faster, delete the options and switch to Mode 3. 

Do-lt- Yourself Program 24-1 

5 CLS 

10 FOR N = 12 TO 1 STEP -1 

15 PRINT "NOTE" 5 N 

20 PLAY STR$(N) 

25 FOR 1 = 1 TO 500". NEXT I 

30 NEXT N 

Do-It- Yourself Program 24-2 

Change the following lines: 

100 a$ = "T5;c;e;f;li ;g!P4;l4»c;e;f;li ; G" 
105 b$ = "P4;l4;c;e;f;l2;g;e;c;e;li ;cr 
H0 c$ = "P4;l4;o+;l8;e;gie;p8;l4;c;l8; o; 

D+" 

us o$ = "L4?e;c;l2;o3;c;l8503?d;l8;o2; b-" 
120 e$ = "g;eil45g;li ;f;p4;l8;g;f;eif" 
125 f$ = "L2;g;eil4jc;l8;o ;o+?EiGiL4 ;a; 

li?03; C" 
130 x$ = "xa$ ;xb$;xc$;xd$ >xe$ ;xf$ ;" 

Add Line 140: 
140 PLAY X$ 
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Do- It- Yourself Program 25-1 



5 CLS: PRINT "POSITION TAPE - PRESS PLAY 

AND RECORD" 

7 INPUT "PRESS <ENTER> WHEN READY"; R$ 

10 OPEN "0" , *-l , "CHECKS" 

15 CLS: PRINT "INPUT CHECKS - PRESS <XX> 

WHEN FINISHED" 

20 INPUT "NUMBER :" 5 N$ 

25 IF N$ = "XX" THEN 90 

30 INPUT "DATE : " 5 D$ 

40 INPUT "PAYABLE TO : " 5 P$ 

50 INPUT "ACCOUNT :" 5 S$ 

G0 INPUT "AMOUNT :$" 5 A 

70 PRINT #-1 , N$ , D$ » P$ , S$ , A 

80 GOTO 15 

90 CLOSE tt-1 

92 CLS: T = 

95 INPUT "WHICH ACCOUNT"; B$ 
100 PRINT "REWIND TAPE - PRESS PLAY" 
110 INPUT "PRESS < ENTER > WHEN READY"; R$ 

120 OPEN "I " , #-1 , "CHECKS" 

130 IF E0F(-1 ) THEN 170 

140 INPUT *-l» N$ , D$ t P$ , S$ f A 

150 IF B$ = S$ THEN T = T + A 

160 GOTO 130 

170 CLOSE #-1 

180 PRINT "TOTAL SPENT ON -" B$ * "IS $" T 



Do-It- Yourself Program 26-1 



10 


DATA 33 , 12 > 42 , 13 t 


15 , 23 


20 


DATA 25, 30 , 33 , 27 , 


14 > 8 


30 


DIM I ( 12) 




40 


FOR X = 1 TO 12 




50 


READ I (X) 




60 


NEXT X 




70 


INPUT "ITEM NO. " 5 N 




75 


IF N > 12 THEN 70 




80 
90 


PRINT "INVENTORY FOR 
GOTO 70 


ITEM" 



N "IS" I(N) 



Do-It- Yourself Program 26-2 



5 


DIM T(52) 


7 


DIM D(52) 


10 


FOR X = 1 TO 52 


20 


TOO = X 


30 


NEXT X 


34 


CLS 


3S 


PRINT @ 101 , ", , , DEALING 


40 


FOR X = 1 TO 52 


50 


C = RND(52) 


S0 


IF T(C) = THEN 50 



THE CARDS' 
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70 0(X) = C 

75 SOUNO 128 > 1 

80 TCC) = 

100 NEXT X 

110 CLB 

120 PRINT § 107 , "YOUR HANO" 

130 PRINT @ 167 , " " 

140 FOR X = 1 TO 5 

150 PRINT O(X) i 

1G0 NEXT X 



Do- It- Yourself Program 27-1 

Lines that change items: 

110 INPUT "WHICH ITEM NO. 00 YOU WANT TO 

CHANGE" i N 
115 IF N > 12 THEN 110 
120 INPUT "WHAT IS THE REPLACEMENT ITEM"! 

S$(N) 
130 GOTO 80 

The appendix has a sample program that adds and deletes items from 
this list. 



Do-It Yourself Program 27-2 

Lines that change the song lyrics: 



110 


PRINT 


120 


INPUT "WHICH LINE 00 YOU WANT TO 




REVISE" i L 


125 


IF L > 4 THEN 120 


130 


PRINT "TYPE THE REPLACEMENT LINE 


140 


INPUT A$(L) 


150 


GOTO 50 



Do- It- Yourself Program 27-3 



1 CLEAR 1000 

5 OIM A$(50) 

7 CLS 

10 PRINT "TYPE A PARAGRAPH" 

IB : 

20 PRINT "PRESS </> WHEN FINISHEO" 

30 X = 1 

40 A$ = INKEY* 

50 IF A$ = " " THEN 40 

G0 PRINT A$i 

70 IF A$ = "/" THEN 105 

80 A$(X) = A$(X) + A$ 

90 IF A$ = "." OR A$ = "?" OR A$ = "!" THEN X 

= X + 1 
100 GOTO 40 
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105 PRINT: PRINT 

110 INPUT "(1) PRINT OR (2) REMISE"; R 

120 CLS 

130 ON R GDSUB 1000, 2000 

140 GOTO 105 

1000 REM PRINT PARAGRAPH 

1010 FDR Y = 1 TO X-l 

1020 PRINT A$(Y) 5 

1030 NEXT Y 

1040 RETURN 

2000 REM REVISE PARAGRAPH 

2010 FDR Y = 1 TO X-l 

2020 PRINT Y "--" A$(Y) 

2030 NEXT Y 

2040 INPUT "SENTENCE NUMBER TO REMISE"; S 

2045 IF S > X-l OR S < 1 THEN 2040 

2050 PRINT A$(S) 

20G0 PRINT "TYPE PHRASE TO DELETE" 

2070 INPUT D$ 

2080 L = LEN(D$) 

20S0 PRINT "TYPE A REPLACEMENT PHRASE" 

2100 INPUT R$ 

2110 FDR Z = 1 TD LEN(A$(S) ) 

2120 IF MID$(A$(S) ,Z»L) = D$ THEN 21G0 

2130 NEXT Z 

2140 PRINT D$ "-- IS NOT IN YOUR SENTENCE" 

2150 GDTD 20G0 

21G0 E = Z - 1 + LEN(D$) 

2170 A$(S) = LEFT$(A$(S) »Z-1 ) + R$ + RIGHT 

$< A$CS) »LEN( A$(S) )-E) 
2180 RETURN 



Do-It- Yourself Program 27-4 

Change this line to print on the printer: 
150 PRINT *-2. A$(Y) ! 



Do-It- Yourself Program 28-1 

1 CLS: CLEAR 1000: DIM T$<100)» A$(100)» 

S$( 100) , M$( 100) > Z( 100) 

2 PRINT "POSITION TAPE -- PRESS PLAY AND 
RECORD" 

a INPUT "PRESS <ENTER> WHEN READY"! R$ 

8 REM 

9 REM OUTPUT TO TAPE 

10 OPEN "0" t #-1 , "BOOKS" 

15 CLS: PRINT "INPUT YOUR BOOKS -- TYPE < 

WHEN FINISHED" 
20 INPUT "TITLE" ! T$ 
25 IF T$ = "XX" THEN 50 
2G INPUT "AUTHOR" 5 A$ 



220 



28 
30 

40 
50 
B0 

70 

74 

7B 

78 

80 

85 

90 

95 

110 

120 

490 

500 



INPUT "SUBJECT" i S$ 
PRINT #.-1 > T$ > A$ > S$ 



GOTO 15 

CLOSE #-1 

CLS: PRINT "REWIND THE RECORDER AND PRESS 

PLAY" 

INPUT "PRESS (ENTER)- WHEN READY"; R$ 

REM 

INPUT FROM TAPE 



, #-1 , "BOOKS" 
1 ) THEN 120 

T$(B) > A$(B) t S$(B) 



1 



510 

520 

530 

540 

550 

5S0 

570 

580 

590 

600 

800 

900 

1000 

1010 

1020 

1030 

2000 

2010 

2020 

2030 

3000 

3010 

3020 

3030 

3900 

4000 

4005 

4010 

4020 

4030 

4040 

4050 

4060 

4065 

4080 

4085 

4090 

4100 



REM 
B = 1 
OPEN "I 1 
IF EOF(- 
INPUT #- 
B = B + 1 

GOTO 85 

CLOSE #-1 

PRINT 

INPUT "SORT BY ( 1 ) 

(3) SUBJECT" ; A 

IF A > 3 OR A < 1 THEN 

ON A GOSUB 1000 > 2000 

GOSUB 4000 



TITLE (2) AUTHOR OR 



500 
, 3000 



1 TO B- 
TITLE : 
AUTHOR: 
SUBJECT 



GOTO 500 



PRINT 

FOR X = 1 TO B-l 

PRINT 

PRINT 

PRINT 

NEXT : 

PRINT 

REM 

REM BUILD 

FOR X = 1 TO 

M$(X) = T$(X) 

NEXT X 

RETURN 

FOR X = 1 TO B-l 

M$(X) = A$(X) 

NEXT X 

RETURN 

FOR X = 1 TO B-l 

M$(X) = S$(X) 

NEXT X 

RETURN 

REM 

REM 

T = 1 

X = 

X = X + 1 

IF X > B-l THEN 

IF M$(X) = "ZZ" 

FOR Y = 1 TO B- 

IF M$(Y) < M$( 

Z(T) = X 

NEXT Y 

T = T + 1 

M$(X) = "ZZ" 

GOTO 4010 



T$(Z(X 
" A$(Z( 
: " S$(Z 



) ) 
X) ) 
( X ) ) 



M$ ARRAY 
B-l 



SORT ROUTINE 



RETURN 
THEN 4020 

) THEN X = 



1 
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Do-It- Yourself Program 29-1 



10 DIM S$(4) , N$(13) f T(4,13) 

20 DATA SPADES , HEARTS, DIAMONDS, CLUBS 

30 FDR X = 1 TO 4 

40 READ S$(X) 

50 NEXT X 

60 DATA ACE, 2, 3, 4, 5, G, 7, 8, 9, 10, 

JACK , QUEEN , KING 
70 FOR X = 1 TO 13 
80 READ N$(X) 
90 NEXT X 
100 FOR S = 1 TO 4 
110 FOR N = 1 TO 13 
120 T(S,N) = (S-l ) * 13 + N 
130 NEXT N ,S 
140 FOR X = 1 TO 52 
150 S = RND(4) ; N = RND( 13) 
160 IF T(S,N) = THEN 150 
170 T(S ,N) = 
180 PRINT H$(H) "-" S$(S) , 
190 NEXT X 



Do-It- Yourself Program 30-1 

5 CLS 

10 FOR NUMBER = 1 TO 10 
20 PRINT NUMBER " 2 
30 NEXT NUMBER 



Do-lt-Yourself Program 30-2 

5 CLS 

10 FOR NUMBER = 100 TO 1 STEP -10 

20 PRINT SQR(NUMBER) 

30 NEXT NUMBER 



Do- It- Yourself Program 30-3 

5 CLS 

10 FOR A = -180 TO 179 STEP 10 

15 RD=A/57, 29577951 

30 CP=C0S(RD)*14+16,5 'COS POSITION 

40 SP=SIN(RD)*14+16,5 'SIN POSITION 

50 IF SP<=CP THEN 70 

60 PRINT TAB(CP) ; " C " 5 TAB ( SP ) i " S " : GOTO 80 

70 PRINT TAB(SP) ."S" ;TAB(CP) T'C" 

80 NEXT A 

90 GOTO 10 
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Do- It- Yourself Program 30-4 



a. ) ?L0G < 1003) 

G. 31075073 
b.) ?L0G(74.38G5) 

4. 3173081 
c, ) ? LOGO. 354285) 

1 .210238G3 



Do- It- Yourself Program 30-5 



5 CLS 

10 INPUT "WHAT NUMBER "5 NUMBER 

15 X=LOG(NUMBER)/LOG(10) 

20 PRINT "THE LOG BASE 10 OF" NUMBER "IS" X 

25 GOTO 10 

a. ) 7.00830077 E -11 

Note: The log of 1 in any base is 0. The answer the com- 
puter displays is the result of a round-off error. All computers 
produce this answer. 

b. ) 1 

c. ) 2 

d.) 2.G3837001 

e. ) -1 

f.) 3.00043408 



Do-It- Yourself Program 30-6 



l.)DEFFNR(X) = X*57. 23577351 

2. ) 

5 CLS 

10 DEF FNC(X) = X t 3 

20 INPUT "WHAT NUMBER DO YOU WANT TO CUBE" iX 

30 X = FNC(X) 

40 PRINT X 

50 FOR A = 1 TO 75 

55 NEXT A 

G0 GOTO 20 



Do- It- Yourself Program 31-1 

5 CLS 

10 X$ = STRING$(30 ,"-") 

20 FOR X = G4 TO 41G STEP G4 

30 PRINT @ X , X$ 

40 PRINT @ 37 , "BILL" 

41 PRINT @ 1G1 , "SUE" 

42 PRINT @ 225 , "JON" 

43 PRINT @ 283 , "MARY" 

50 PRINT @ 38 , "MATH" 

51 PRINT @ 45 , "SPELL" 
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52 PRINT i 53, "READ' 
60 PRINT § 103 > "X" 
Gl PRINT @ 175 , "X" 
B2 PRINT @ 231 , "X" 
63 PRINT @ 311 f "X" 
70 NEXT X 
80 GOTO 80 



Do- It- Yourself Program 31-2 

5 CLS 

10 X$ = "ABCDEB" 

20 Y$ = "B" 

30 PRINT INSTR(X$»Y$) 5 I NSTR ( 4 ,X$ , Y$ ) 



Do-It- Yourself Program 31-3 



15 x = 1 

20 X$ = "JAMES SMITH »E550HARI SON ,DALLASTX* 
75002:SUE S I M » RT3 , GRAV I OSMO*65084 : LYDIA 
LONG »3445SMITHST , ASBURYN J*32004 : BOB 
STRONG .BOX G0 » EDMONTONALBERTACA ; T I MMY 
DUNTON, PIERMONTMO*G5078" 
50 P = INSTRCX»X$»A$) : PRINT P 
60 IF P < > THEN X = P+l: GOTO 50 



Do-It- Yourself Program 31-4 



10 DIM TBL$(2G) 

20 FOR 1=0 TO 25 

30 READ TBL$(I ) ;NEXT I 

40 PRINT "ENTER OLD-STYLE PHONE NUMBER' 

50 INPUT N$ 

G0 IF N$=" " THEN 40 

70 FOR 1 = 1 TO LEN(N$) 

80 C$=MID$(N$ tl ,1 ) 

90 IF C$<"A" OR C$ >"Z" THEN 120 

100 C$=TB$( ASC(C$) -B5) 

110 MID$(N$ ,I)-C$ 

120 NEXT I 

130 PRINT "NEW-STYLE = " ; N$ 

140 REM A B C D E F 

150 DATA "2" »"2" ,"2" »"3" >"3" ,"3" 

160 REM G H I J K L 

170 DATA "4" >"4" ,"4" »"5" ,»s" ,"V 

180 REM M N P R 

180 DATA "6" »"6" »"6" »"7" »"Q" >"7" 

200 REM S T U V W X 

210 DATA "7" »' 

220 REM Y Z 

230 DATA "9" ,»Z" 



" H " t " 8 " t " 8 " t " 9 " > " 9 " 
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Do-lt-Yourself Program 32-1 



10 A$ = "$$##»###»##,«# DOLLARS' 



Do-lt-Yourself Program 32-2 



5 CLS 




10 INPUT " 


INCOME" ; I 


15 INPUT " 


EXPENSES" !E 


20 N = I-E 


'NET GAIN OR LOSS 


25 A$ = "$$###«,##" 


30 B$ = "$$####.##" 


35 C$ = "+$$####,##" 


40 CLS: PRINT @ 33. "MONTHLY ECONOMIC STATUS 


REPORT" 




45 PRINT @ 


9G > STRING$ (32 ,"-" ) 


50 PRINT @ 


1G0 , "INCOME" 


55 PRINT @ 


25G , "EXPENSES" 


G0 PRINT @ 


352 > "TOTAL ( + ) OR ( -) " 


G5 PRINT @ 


340 > STRING$( 10 »"-" ) 


70 PRINT @ 


180 > USING A$5 I 


75 PRINT @ 


27G > USING B$5 E 


80 PRINT @ 


371 t USING C$5 N 


90 GOTO 90 





Try modifying this program to keep track of your electricity bills and to 
store the information on a yearly basis. 



Do-lt-Yourself Program 32-3 

5 CLS 

10 PRINT "THIS" TAB(POS(0)+4) 
20 PRINT TAB(POS(0)+4) "EVENLY 
TAB(POS(0)+4) "SPACED" 



IS" 
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SAMPLE PROGRAMS 

Sample Program #1 

Type this program and save it on cassette, but don't open it (or run it) 
until Christmas! 

5 CLS 

10 PRINT @ G4 » STRING$ (32»"#") 
15 PRINT @ 352 > STRING$ (32,"*") 
20 PRINT @ 199 , "JOY TO THE WORLD" 
25 FOR X = 1 TO 1000: NEXT X 
30 CLS 

35 PRINT @ G4 » "JOY TO THE WORLD" 
40 PRINT @ 9Gt "THE LORD IS COME" 
45 PRINT @ 128 » "LET EARTH RECEIVE HER KING" 
50 PRINT @ 1G0, "LET EVERY HEART" 
55 PRINT @ 192 > "PREPARE HIM ROOM" 
G0 PRINT @ 224 > "AND HEAVEN AND NATURE SING" 
G5 PRINT @ 25G, "AND HEAVEN AND NATURE SING" 
70 PRINT @ 288 > "AND HEAVEN AND HEAVEN AND 
NATURE SING" 

100 A$="T4; 03; l2;c;l4;o2;b;lb;a;l2, ;g;l4; 

f;l2>e;d>" 
105 b$="L2, ;c;p32;l4;g;l2;a;l4)P32)A;l2. ;b; 

P32;l4;b;o3;li , ;c n 
H0 c$ = "L4 ;c;c;o2 ;l4 ;b ;a;g;l4, ;g;lb;f;l4 ;e; 

03 ;c" 
us d$ = "03;l4;c;o2;b;a;g;p32)L4 ( ;g;lb;f;l4; 

e;p32;e;p32;e;p32;e;p32;e;p32)L8)E;f" 
120 e$ = "L2, ;g;l8;f;e;l4;d;p32;d;p32)D;p32; 

lb;d;e;l2, ;f;lb;e;d" 
125 F$ = "02;L4ic;o3;L2;c;o2;L4;AiL4, ;g;l8;f; 

L4; e;f;l2;e;d;li ;c n 
130 x$ = "xa$ ;xB$ixc$ ;xd$ ;xe$ ;xf$ i" 

135 PLAY X$ 

200 PMODE 3 ,1 

205 PCLS a 

210 SCREEN 1 i0 

215 COLOR 1 ,4 

220 LINE (90,9G)-( 118 ,2G) »PSET 

225 LINE ( 14G »9G)-( 118 »2G) »PSET 

230 LINE (90 t 9G)-(i4G»9G) tPSET 

235 DRAW "BM1 12 »9G iD15 iR10)U15" 

240 LINE (0 ,1 12) -(255 ,9G) tPSET 

245 PAINT (238,85) ,1 ,1 

250 X = RND(255) 

255 Y = RND( 115) 

2G0 A = RND(4) 

2G5 PSET (X,Y,A): GOTO 250 

Sample Program #2 

1 '##* BACK TO BACH *** 
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5 CLS 

10 print @ 9g> string$<32 >"*" ) 

20 print @ 320, string$<32 »"*" ) 

25 print @ 201 , "back to bach" 

40 for x = 1 to 1000: next x 

55 a$ = "T6;o2;l2;g;i_4;c;d5e;f;l2;g;c;pi6; 

C" 

G0B*="L2;A;La;F;G;A5B;D3;L2iC5O2;C5PlB;C5 

f5L4;g;f;e;d h 

65 C$="L2 5E5La 5F;E5DiCiL2i01 !B ;02!La;CiD5 

e;c" 
70 d$="L2;e;li ;d;l2;g;l4;c;d;e;f;l25g;c; 

p l g ; c " 
75 e$="L2;a;l4;f;g;a;b;o3;l2;c;o2;c;pig;c5 

F5L4;g;F;E;D" 
80F$="L2;EiLaiF;EiD;C5DiEiL2;F;OliB;Li;O2; 

C" 
85 X$="XA$5XB$;XC$5XD$ iXE$5XF$i" 
90 PLAY X* 



Sample Program #3 

1 ' *#*MEXICAN HAT DANCE*** 

5 CLS 

10 PRINT @ 9G »STRING$<32 »"*" ) 

20 PRINT @ 320 »STRING$(32 »"*" ) 

30 PRINT @ 199 »" MEXICAN HAT DANCE" 

40 FOR X = 1 TO 500: NEXT X 

125 REM S T A R T T U N E 

130 0$="M15;T3;025" 

135 P$="L8CFP8CFP8CFP4P8" 

140 q$="cfgfep8fgp4p8" 
145 x$ = "xo*-;xp*;xq* ;" 

150 PLAY X$ 

155 R$="CEP8CEP8CEP4P8 
1G0 S*="CEFEDP8EFP4P8 
1G5 Y$="XO$5XR$iXS*i" 
170 PLAY Y* 
180 REM 2ND TIME 
185 0$= "U25 5T3 501" 
190 PLAY X* 
195 0$="T3;04" 
197 S$="CEFEDP8EF04C03AF" 
200 PLAY Y$ 

210 A$="03C02B03C02AA-AFEFCP4" 
220 B$="C01B02CDEFGAB-03CEG" 
225 0$="yi5 5T4 5" 
230 Z$="X04 5XA$;XB$;" 
235 PLAY 0$ 

240 C$="03B-AB-GF+FEG=ECEG" 
245D$="04L1GCP1GCP1GCP1SL8DC03B-AGFP4" 
250 E*="XO* 5XC$ 5XD$ 5" 
255 PLAY F$ 

2G0 F$="02L1GGP1GGP1GGP1GDP1GDP1GDP1GEP1GFP 
1GL8EL1GGP1G01GP1GL8G 
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2G5 G$="V1502L1GGP1GGP1GGP1GDP1GDP1GDP1GEP 

1GFP1GLGEC01GC" 
270 H$="XF$;XG$J" 
280 PLAY H$ 
285 I$="XF$5" 
290 PLAY 1$ 

295 J$="02L1GGP1GGP1GGP1GAP1GGP1GGP1GAP1GBP 

1G03L4CP8" 
300 PLAY "XJ$J" 
310 K$="04L1DL4DEDEL8DEDEL1GDEDEDEDEL 

32DEDEDEDEDEDEDEDELG4DEDEDE 

DEDEDEDEDEDEDEDEDEL32DD-C03BB-AA- 

GF+FEE-DD-L4DD-" 
320 PLAY "XK$5" 

330 M$="T5L8D02BB-BGF+GL4DP8" 
340 N$="L8DC+DEF+GAB03C02L4AP8" 
350 AA$="03L8C02B0EC02AG+AF+FF+L4DP8" 
370 BB$="03L8DDDEDC02BA03DEDC02BA" 
380 CC$="02DEDC01BA04DEDDEDDEDDEF+ 

GDO3BGT4DO2BGT3DO1T2BL4P2M30L1G" 

a00 play ")<m$;xn$;xaa$;xbb$;xcc$;" 

500 PMODE 4,1 

505 FOR Y = 1 TO 5 

510 SCREEN 1 ,0 

520 PCLS 

550 CIRCLE <128,9G) ,50 , 1 , . 2 , . 85 , . G7 

5G0 CIRCLE (128, 9G) ,25,1 ,2, .5,1 

570 LINE ( 105,9G)-<151 ,9G) ,PSET 

G00 PMODE a ,1 

G10 SCREEN 1 ,0 

G20 PCLS 

G30 CIRCLE ( 128 ,75) ,50 ,1 ,.2,.85 ,.G7 

GG0 CIRCLE ( 128 ,75) ,1 ,2 ,.5 ,1 

G70 LINE ( 105 ,75)- ( 151 ,75) ,PSET 

G75 NEXT Y 

G80 IF Y > 5 THEN G90 

G85 GOTO 500 

G90 CLS 

700 PRINT @ 227, "NOW THAT'S A HOT TAMALE" 

710 FOR X = 1 TO G00:NEXT X 

720 GOTO 5 



Sample Program #4 

1 ' ***BUFFALO GALS*** 

5 CLS 

10 PRINT @ G4 , STRING$(32 ,"*" ) 

15 PRINT @ 384, STRING$(32 ,"*" ) 

20 PRINT @ 201, "BUFFALO GALS" 

25 FOR X = 1 TO 1000: NEXT X; CLS 

30 PRINT @ 32, "AS I WAS WALKING DOWN THE 

STREET" 
35 PRINT @ G4 , "DOWN THE STREET, DOWN THE 

STREET" 
40 PRINT @ 9G , "A PRETTY GAL I HAPPENED" 
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45 PRINT @ 133 , "TO MEET" 

50 PRINT @ 1G0, "JUST AS LOVELY AS" 

55 PRINT @ 197, "THE MORNING DEN" 

G0 PRINT @ 224 , "BUFFALO GALS WON'T YOU" 

G5 PRINT @ 2G1, "COME OUT TONIGHT" 

70 PRINT @ 288, "COME OUT TONIGHT," 

75 PRINT @ 320, "COME OUT TONIGHT," 

80 PRINT @ 352 , "BUFFALO GALS WON'T YOU" 

85 PRINT @ 391 , "COME OUT TONIGHT" 

90 PRINT @ aiB, "AND DANCE IN THE" 

95 print @ 453, "light of the moon." , 
100 a$="T4;c;e;p32;e;f;p32;f;a;g;l2;e;" 
105 b$ = "L4;g;f;l2;d ;l4;a;g;e ;c ; n 

110 C$="LaiE;P32iE;FiP32iFiL8iA5P32iA;La; 
G;Ei03iL8;CiP32;C5" 

115 d$="02;b;p32;b;g;p32;g;l4;f;oi ;b;o2; 

l l ; c ; p l g ; " 

120 E$="L8iCiP32;CiLa i P32 i C i E i L8 i G 5 P32 !G i 

AiP32JA;L^;GiL2iE" 
125 F$="L8iGiP32iGiLa;FiL25DiLaiA;L85Gi 

P32iGiL2iE" 

130 g$="L8;c;pg4;c;pg4;l4;c5e;l8;g;p32;g; 

La;AiL8;G5P32iGiLaiEi03 5C;" 
135 H$="a2 5B;L8 5 G 5 P32 5 G iF i P32 5 F i L4 ; D 5 L2 . i 
Ci" 

ia0 x$ = "XA$;xB$i)<c$ ;kd$ ;)<E$iXF$;xG$i xh$ 
ias PLAY x$ 

150 CLS 

155 PRINT § 230, "THAT'S ALL FOLKS" 

Sample Program #5 

1 '*** IN-OUT *** 



5 PMODE 3 ,1 




10 PCLS3 




15 SCREEN 1 ,0 




20 FOR I = 3 TO 7 




25 FOR J = 2 TO G 




30 FOR S = TO 3 




35 FOR R = TO 3 




40 COLOR R ,S 




45 A = 0;B=255:C=0:D= 


191 



50 LINE (A,C)-(B,D),PSET,B 
55 A=A+J:B=B-J:C=C+I :D=D-I 
G0 IF A<255 AND C<191 THEN 50 
G5 NEXT R 
70 NEXT S 
75 NEXT J ,1 
80 GOTO 30 



Sample Program #6 



1 '*** DRAWING TRIANGLES *** 

10 CLS: CLEAR 

75 PRINT @9G ,STRING$(32 ,"*" ) 
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80 PRINT @ 288, STR I NG$ ( 32 , " * " ) 

100 PRINT @ 1G0» "THIS PROGRAM DRAWS THE 

TRIANGLE YOU SPECIFY AND THEN CALCULATES 

ITS AREA" 

FOR X=l TO 2200: NEXT: CLS 

CLS:PRINT"FOR 3 SIDES TYPE* SSS (0-100)" 



110 
120 
125 



PRINT"FOR 2 SIDES ( 1 

90) TYPE t SAS" 
130 PRINT "FOR 1 SIDE (0- 

90) TYPE t ASA" 
140 INPUT A$: IF A$="SAS" 



-100) AND 1 ANGLE (0- 
G0) AND 2 ANGLES (0- 
GOTO 300 



15( 



*-> *-> tr 

230 
235 

240 
250 
2G0 
270 
280 
300 
310 

320 
325 
330 
340 
350 
400 
410 

420 
425 

430 
440 
450 
4G0 

470 
490 
500 
510 
520 

530 
532 
533 
535 
537 
540 



IF A$ = 

'SSS 

PRINT 

FIRST 

INPUT 

IF L2) 

FIRST 



"ASA" GOTO 400 

"ENTER 3 SIDES* (LONGEST SIDE 



LI »L2 »L3 
LI OR L3: 
PLEASE . 



-L3) )/Ll 



AB »AC , 



LI THEN PRINT "***LONGEST 
. . " : PRINT: GOTO 210 
S=(Ll+L2+L3)/2 
IF SOLI THEN PRINT "###NOT A 
TRIANGLE***": PRINT: GOTO 210 
Y3=2*SQR(S*(S-L2)*(S-L1 )*(S- 
A = Y3/L2: A = ATN ( A/SOR ( - A*A+ 1 ) ) 
X3=C0S( A)*L2 
AR=(Ll*Y3)/2 
GOTO 490 
'SAS 

PRINT "ENTER 2 SIDES AND 1 ANGLE: 
THETA (LARGEST SIDE FIRST)" 
INPUT LI ,L2 ,T 
T=(T*3. 14159)/180 
Y3=L2*SIN(T) 
X3=C0S(T)*L2 
AR=(Ll*Y3)/2 
'ASA 

PRINT "ENTER 2 
THETA2 , AB" 
INPUT Tl »T2 »L2 
T1 = (T1*3. 14159 
180 
Y3=L2*SIN(T1 ) 

COS(Tl )*L2 

Y3/TAN(T2) 

B1+B2: X3 
i r> ■> i *-? — v 

L. i. s L. jl. — /\ 

(L2*Y3)/2 
PM0DE4 ,1 



GOTO 490 



ANGLES AND 1 SIDE: THETA1* 



/180: T2=(T2*3. 14159)/ 



Bl = 

B2: 
LI: 

Ll = 
AR = 
CLS: 
F=l 



Bl : IF L2>L1 THEN 



= L1 



PCLS:SCREEN 1 »1 



VC=(3. 14159 
VS=(3. 14159 

yT=yc+ys 

S1=Y3/X3: S2 

IF INT(X3) = 

IF INT(X3) = INT(L1 : 

IF X3>L1 THEN 1 199 

IF X3=L2 THEN 1000 

FOR Y=20 TO Ll*2+2 



* (L1*F-X3*F)*( 
*(X3*F)*( Y3*F) - 



'3*F) ' 

I ) / 3 : 



/3 



3/(X3-Ll ) 
THEN 1100 



THEN 1000 



STEP 2: 
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PSET(Y >Y3 + 5 »5) : NEXT 

550 FOR X = TO X3 

551 PSET(X*2+20 »Sl*(X3-X)+5 ,5) : NEXT 

5G0 FOR X=X3 TO LI: PSET ( X*2+20 > Y3+ ( S2* (Ll- 

X)+5) ,5) : NEXT 
580 FOR X=l TO G00: NEXT X 

G10 PRINT @ 130 »"AREA=" ;AR5" SO, UNITS"! 
G30 PRINT 0352 , "*";: INPUT "TO RUN AGAIN* 

PRESS <1> <ENTER>" 5 BG: IF BG=1 THEN 120 
G40 STOP: GOTO 10 
1000 FOR Y = 5 TO Y3 + 5: PSET ( X3#2 + 20 > Y ,4 ) : 

NEXT: GOTO 540 
1100 FOR Y = 5 TO Y3 + 5: PSET ( 20 > Y ,5 ) : NEXT: 

GOTO 540 
1200 FOR X = L1 TO X3: PSET ( X*2 + 20 > Y3+ ( S2* ( LI - 

X)+5) >5) : NEXT: GOTO 540 
1300 FOR X = X3 TO 0: PSET ( X*2+20 > Y3+ ( S 1 * ( 0- 

X)+5) »4) : NEXT: GOTO 540 



Sample Program #7 



1 '*** PROJECTION STUDIES *** 

5 PMODE 4 »1 

10 PCLS 

15 SCREEN 1 »0 

20 DRAW "BM50 »50R60D 1 0NL20D20L20NU20L20NU 

20L20U20NR20U10" 'TOP UIEW 
25 DRAW"BM50 > 1 00R20ND20R20ND20R20D20NL20D 

10LG0U10NR20U20" 'FRONT UIEW 
30 DRAW "BM150 » 1 00R30D30L30U 1 0NE20U20" 

'SIDE UIEW 
35 ' OBLIQUE VIEW-LINES 40-G0 
40 DRAW "BM150 »50U5E 1 5R 1 0BF20BD30NR5L20H 

25U10 
45 DRAW "BM 150 »50U5F8U 1 5R 1 5H8F8L 1 5F8NR 1 5D 

15F8ND10E15NR10H8 
50 LINE ( 175 »30)-(200 ,55) »PSET 
55 LINE -(200 »80) >PSET 
G0 LINE ( 1G7 >60)-( 183 »4G) »PSET 
G5 GOTO G5 



Sample Program #8 



1 '*** UNFOLDING BOX *** 

5 PCLEAR 8 

10 PMODE 3 »1 

15 PCLS 

20 COLOR S »5 

25 DRAW"BM100 > 1 00U30NR30E 1 5GR30NG 1 5D30G 1 G 

NU30L30" 
30 PAINT ( 105 »95) »8 »G 
35 PAINT ( 135 »80) ,8 >B 
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40 PAINT ( 1 10 .65) .8 .6 

45 SCREEN 1 .1 

50 FOR X = 1 TO 600: NEXT X 

1 10 PMODE 3 .5 

112 PCLS 

115 COLOR G .5 

120 DRAW "BM100 >100U30NR30E20R30G20D30NL 

30F20L30H20 
125 LINE (100»100)-(70.95)»PSET 
130 LINE -(70 .65) .PSET 
135 LINE -< 100 .70) .PSET 
140 LINE (70 .95) -(40 .G5) .PSET .B 
145 LINE ( 130 »100)-( 1G0 .95) .PSET 
150 LINE -( 1G0 .G5) .PSET 
155 LINE -( 130 .70) .PSET 
1G0 PAINT (95 .95) .8 .G 
165 PAINT ( 105 .95) .8 »G 
170 PAINT ( 135 .85) .8 »G 
175 PAINT (45 .85) .8 »G 
180 PAINT ( 1 15 .65) .8 .6 
185 PAINT ( 125 .114) .8.6 
190 SCREEN 1 .1 
195 FOR X = 1 TO 600: NEXT X 
200 GOTO 10 



Sample Program #9 

1 '##* SINE WAVE *** 

5 PMODE 4 .1 

10 PCLS 

15 SCREEN 1 .1 

20 LINE (0 »86)-(255 .86) .PSET 

25 PI=3. 14159 

30 A1=-4*PI 

35 A2=4*PI 

40 N=180 

45 R=50 

50 X= (A2-A1 )/N 

55 F = 255/(A2-A1 ) 

60 FOR I =A1 TO A2 STEP X 

65 X=I*F 

70 Y=R*SIN( I ) 

75 PSET ( (X+140) . (80 + Y) .1 ) 

80 NEXT I 

90 GOTO 90 



Sample Program #10 

1 '*** SIN/COS *** 

10 PMODE 4 .1 
20 PCLS 



232 



30 SCREEN 1 ,0 

40 LINE ( 127 ,5)- ( 127 ,185) ,PSET 

50 LINE (7 ,95)-(247 ,95) ,PSET 

G0 FOR XSCALE=7 TO 247 STEP 20 

70 PRESET (XSCALE ,95) 

80 NEXT XSCALE 

90 FOR YSCALE=5 TO 185 STEP 10 

100 PRESETC 127 (YSCALE) 

110 NEXT YSCALE 

130 FOR X=-180 TO 180 STEP 1,5 

140 AX=X/57. 29578 

145 XP=X/1 .5+127 

150 Fl=-(SIN(AX)*90)+95 

1G0 F2=-(COS(AX)*90)+95 

170 PSET(XP ,F1 ,1 ) : PSET ( XP ,F2 , 1 ) 

180 NEXT X 

190 GOTO 190 



Sample Program #1 1 

1 '#** RANDOM GRAPHICS *** 

10 PMODE 3 ,1 

15 PCLS 

20 SCREEN 1 ,1 

25 F =RND(4) :B = RND(8) : IF B = F OR (B-4 = F) 

THEN 25 
30 COLOR F,B:PCLS B: FOR L = TO 5 
35 LINE -(RND(255) ,RND( 191 ) ) ,PSET 
40 CIRCLE (RND(255) ,RND( 191 ) ) ,RND< 100) 
50 NEXT; FOR P = TO 10 

55 PAINT (RND(255) ,RNDC 191 ) ) ,RND (4),F 
60 NEXT: FOR H = 1 TO 7 
G5 FOR T = TO 600: NEXT T: GOTO 10 



Sample Program #1 2 



1 '***NAUAHO BLANKET*** 



5 PMODE 3 


,1 














10 


PCLS 4 
















15 


SCREEN 


1 , 















20 


COLOR : 


L ,0 














25 


FOR X = 


: 


TO 


<-> ; 


55 


STEP 


18 




30 


OY = Y 
















35 


Y = 30- 


■OY 














40 


LINE (X ,1 


00- 


- i 


)- 


(X+10 


,100-OY) 


,PSET 


45 


LINE(X 


,12 


!0 + ' 


/) 


- ( 


X+10 , 


120 + OY) , 


PSET 


50 


NEXT 
















60 


FOR C = 


**? 


TO 


8 










65 


PAINT i 


!0 , 


110) 


,C 


,1 






70 


NEXT 
















80 


GOTO 5 
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Sample Program #13 



1 '### PAINTED LACE *** 

5 PMDDE 3 ,1 

10 PCLS 

20 SCREEN 1 ,1 

30 DRAWBM50 » 1 80UG0BU20UB0RB0BR20RG0DG0 

BD20DG0LG0BL20LG0 
40 DRAWBM50 , 1 80UG0R40BR20R80D20BL20LS0 

BL20L20D20R20BRB0R20U20 
50 DRAWBM50 , 1 80RB0U80BU20U40L40BD20D20 

BD60D20R20UG0BLJ20U20L20 
G0 DRAW"BM50 » 1 80UB0BU40BR20RB0BR20R20U20 

L20DG0BD20D20R20 
70 DRAWBM50 , 1 B0BR80U40BU20U80 
80 DRAW"BM50 ,180BU80R80BR20R40 
90 PAINT (85 ,128) ,8 ,8 
85 PAINT (85 ,78) >G ,8 
37 PAINT ( 155 ,95) ,8,8 
88 PAINT ( 135 ,145) ,8 ,8 
98 PAINT ( 128 ,185) ,7,8 

100 PAINT (75 ,150) ,7 ,8 

101 PAINT ( 1G0 ,150) ,7 ,8 

102 PAINT (75 ,75) ,7 ,8 

103 PAINT ( 1G0 ,75) ,7 ,8 

104 PAINT ( 120 ,110) ,7,8 
110 FOR X =1 TO G00; NEXT X 
200 GOTO 5 



Sample Program #14 



1 '*** DRAWING BOARD *** 

3 CLS 

5 PRINT @128 »STRING$(32 »"*" ) : PRINTS 288, 
STRING$C32 ,"*" ) 

10 PRINT @ 200, "DRAWING BOARD" 

15 FDR X = 1 TO 800: NEXT X 

20 CLS 

25 PRINT @ 98, "PRESS <f> FDR UP, <DOWN 
ARROW)- FOR DOWN, -(BACKSPACE) FDR LEFT, 
<TAB) FDR RIGHT, < A ) FDR SOUTHWEST, < S > 
FDR SOUTHEAST, < W > FDR NORTHEAST, < > FOR 
NORTHWEST" 

30 PRINT @ 288, "PRESS < 1 > FDR INVISIBLE 
LINE, <2>,<3>, OR <4) FOR DIFFERENT 
COLORED VISIBLE LINES, PRESS </> TO 
CHANGE CDLDR-SET" 

35 PRINT @ 448, "PRESS -(SPACEBAR) TO PAUSE" 

40 FOR X=l TO 4800: NEXT X 

45 CC=4; TG=0 

50 PMDDE 3 ,1 

55 PCLS 
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B0 SCREEN 1 ,TG 

70 X=128:Y=9G:XI=0:YI=0 

80U$='""': D$=CHR$(10): W$=CHR$(8>: 

E$=CHR$(9> 
90NW$="P": NE$="W": SW$="A": SE$="S" 
100 Cl$="l" :C2$="2" :C3$="3" : C4$="4" 
110 A$=INKEY$ 

120 IF A$ = U$ THEN YI = -1:XI=0: GOTO 240 
130 IF A$ = D$ THEN YI=1:XI=0: GOTO 240 
140 IF A$ = W$ THEN XI = - 1 : YI =0 : GOTO 240 
150 IF A$=E$ THEN XI=1:YI=0: GOTO 240 
1B0 IF A$ = NE$ THEN X I = 1 : Y I = - 1 : GOTO 240 
170 IF A$ = NW$ THEN X I = - 1 : Y I = - 1 :GOTO 240 
180 IF A$=SE$ THEN X I = 1 : Y I = 1 : GOTO 240 
190 IF A$=SW$ THEN XI = - 1 : Y I = 1 : GOTO 240 
200 IF C1$<=A$ AND A$<=C4$ THEN CC=ASC(A$>- 

48: GOTO 240 
210 IF A$="/" THEN TG=(NOT TG AND 1) OR (TG 

AND NOT 1 ) : GOTO 240 
220 SCREEN 1 , TG 
230 IF A$=" " THEN XI =0: YI=0 
240 X = X + XI :Y = Y + YI : IF X<0 THEN X = 
250 IF X>255 THEN X=255 
2B0 IF Y<0 THEN Y = 
270 IF Y>191 THEN Y =191 
275 IF CC=1 THEN PSET(X»Y,3) 
280 PSET (X »Y ,CC) 
290 GOTO 1 10 



Sample Program #15 

1 '*** INTERACTING LINES *** 

5 CLS 

20 C = C + 1 

25 IF C > 8 THEN C = 5 

30 COLOR C ,1 

50 PRINT "TYPE X0 »Y0" 5 

B0 INPUT X0 ,Y0 

70 PRINT "TYPE XI »Y1 " 5 

80 INPUT XI ,Y1 

90 PMODE 3 .1 

95 PCLS 

100 SCREEN 1 ,1 

1 10 LINE (X0 ,Y0) - (XI »Y1 ) ,PSET 

115 FOR X = 1 TO 2000: NEXT X 

120 GOTO 20 

Sample Program #16 

1 '*** RANDOM LINES *** 

20 PMODE 4 ,1 
25 PCLS 
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30 SCREEN 1 . 1 

35 X = RND(255): Y = RNDU91) 

40 LINE -(X .Y) . PSET 

45 FOR X = 1 TO 200: NEXT X 

50 GOTO 35 



Sample Program #1 7 

1 '#** 8-LEAF CLOMER *** 

5 PCLEAR 8 

10 PMODE a .1 

15 PCLS 

20 SCREEN 1 .0 

25 PI=3. 14159 

30 A1=0: A2 = 2*PI 

35 N=3S0:A=50 

40 X = (A2-A1 )/N 

45 FOR I = Al TO A2 STEP X 

50 R = A * COS (4*1 ) 

55 X =R *SIN( I ) 

60 Y =R * COS( I ) 

B5 PSET( 128 + X .96 + Y .5) 

70 NEXT I 

75 GOTO 25 

Sample Program #18 

1 '*** TIMEBOMB *** 

10 PMODE 4 . 1 

15 PCLS 

20 SCREEN 1 . 1 

25 CIRCLE ( 128 .96) .80 

30 CIRCLE ( 128 .96) .90 

35 PAINT (0 .0) ,5 

40 FOR T=30 TO -30 STEP -1 

45 A=(2*3. 1415)*T/B0 

50 LINE ( 128 »9S) - ( 75*S I N ( A ) + 1 28 »75* 

C0S(A)+9B) »PSET 
55 SOUND 0*2+1 .20/(0+1 ) + l 
B0 LINE ( 128 .96) - ( 75*S I N ( A ) + 1 28 .75* 

C0S(A)+96) .PRESET 
65 O = 60-2*T:FOR Y = TO STEP - 1 : NEXT 
70 NEXT 
75 CLS 
80 PCLS 

85 PRINT @ 237 ."BOOM! " 
90 SOUND 1 .30 
95 PMODE 4 .1 
100 SCREEN 1 .1 
105 FOR I =2 TO 200 STEP 2 
110 CIRCLE ( 128 .96) .1 
115 NEXT I 
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120 SCREEN 1 ,1 

125 FOR X =2 TO 200 STEP 2 

130 CIRCLE ( 12.8 »9G) »X , ,3 

135 NEXT X 

140 FOR I = 2 TO 200 STEP 2 

145 CIRCLE ( 12B+9G) »I »3».5 

150 NEXT I 

155 GOTO 155 

Sample Program #19 

1 '*** ROTATING FAN *** 

5 PCLEAR 8 

50 GOTO G00 

G0 LINE ( (255-X) »(191-Y) )-<X»Y> »PSET 

Gl J = J+l-.IF J>A THEN J = : A = RND ( 50 ) 

G3 RETURN 

G00 REM ROTATING FAN 

G01 FOR I = 1 TO 5 STEP 4 

G02 PMODE 3 »I 

G03 PCLS 

G04 SCREEN 1 »0 

G05 A=25:X=0: Y=0: J=0 

G10 FOR X =0 TO 254 

G12 COLOR X/32+1 ,5 

G15 GOSUB G0: NEXT X 



G20 


FOR Y 


= 


TO 190 




G23 


COLOR 


Y/2 


14+1 »5 




G25 


GOSUB 


G0: 


NEXT Y 




G30 


FOR X 


_ *3 i 


55 TO 1 


STEP 


G33 


COLOR 


X/G 


12+1 »5 




G35 


GOSUB 


G0: 


NEXT X 




G40 


FOR Y 


= 191 TO 1 


STEP 


G43 


COLOR 


Y/2 


14+1 ,5 




G45 


GOSUB 


G0: 


NEXT Y 




G50 


NEXT I 








GG0 


FOR I 


= 1 


TO 5 STEP 4 


G70 


PMODE 


3 »I 






G80 


SCREEN 1 , 







G90 


FOR T 


= 1 


TO 30: 


NEXT 


700 


NEXT I 








710 


GOTO GG0 







Sample Program #20 



1 '***WALKING TRIANGLES *** 

10 FOR A = 90 TO STEP -4 

15 S1=A*9: S2=191 

20 A3=A/57. 29578 

30 X1=0:Y1=191 

40 X2=S1+X1 : Y2=Y1 

50 X3 = X1+S2*C0S(A3) : Y3 = Y 1 -S2*S I N ( A3 ) 

55 GOSUB 1000 

90 NEXT A 
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99 GOTO 99 

1000 PMODE 4 ,1 

1005 PCLS 

1010 SCREEN 1 .0 

1020 LINE (XI »Y1 ) -(X2 »Y2) »PSET 

1030 LINE -(X3 »Y3) »PSET 

1040 LINE -(XI »Y1 ) »PSET 

10B0 RETURN 



Sample Program #21 

1 '*** COUNTING *** 



10 CLS 

20 CLEAR 1000 

30 PRINT "WHERE DO YOU WANT TO START 

COUNTING?" 
35 INPUT A$ 
40 P=LEN(A$) 
50 PRINT:PRINT A$ 
G0 C=YAL(MID$(A$ » P » 1 ) ) + 1 
70 MS$=A$: MR$=RIGHT$(STR$(C) ,1 ) : PS = P: 

GOSUB 200: A$=MS$ 
80 IF C<10 THEN 40 
90 P=P-1 
100 IF P = THEN IF LEN(A$)=255 THEN PRINT 

"OVERFLOW": END: ELSE A$="l"+A$: GOTO 40 
1 10 GOTO G0 
200 LS=LEN(MS$) 

210 IF LS< > LEN(MR$)+L5-1 OR PS< 1 THEN STOP 
220 MS$=LEFT$(MS$ »PS-1 )+MR$+RIGHT$ (MS$>LS- 

PS) 
230 RETURN 



Inventory Shopping List 



5 CLEAR 2000: DIM S$(100) 

10 REM INVENTORY/SHOPPING LIST 

20 CLS 

30 PRINT @ 71. "DO YOU WANT TO--" 

40 PRINT @ 134. "(1) INPUT ITEMS" 

50 PRINT @ IBS. "(2) REPLACE ITEMS" 

G0 PRINT @ 198. "(3) ADD TO THE LIST" 

70 PRINT @ 230. "(4) DELETE ITEMS" 

80 PRINT @ 2G2» "(5) PRINT ALL ITEMS" 

90 PRINT @ 294. "(G) SAME ITEMS ON TAPE" 

100 PRINT @ 32G» "(7) LOAD ITEMS FROM TAPE" 

1 10 PRINT @ 395 , " ( 1-7) " 5 

120 INPUT M 

130 IF M < OR M > 7 THEN 10 

140 ON M GOSUB 1000. 2000* 1020* 3000 > 4000 

5000 > G000 
150 GOTO 10 
900 REM 
1000 REM INPUT/ADD ITEMS 
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1010 Y = 1 

1020 CLB: PRINT @ 8, "INPUT/ADD ITEMS" 

1030 PRINT @ 34 > "PRESS < ENTER) WHEN 

FINISHED" 
1040 PRINT: PRINT "ITEM" Y5 
1045 INPUT S$(Y) 

1050 IF S$(Y) = " " THEN RETURN 
10G0 Y = Y + 1 
1070 GOTO 1040 
1900 REM 

2000 REM REPLACE ITEMS 
2005 N = 

2010 CLS: PRINT @ 9» "REPLACE ITEMS" 
2020 PRINT @ 34 » "PRESS (ENTER) WHEN 

FINISHED" 
2030 PRINT: INPUT "ITEM NO. TO REPLACE"! N 
2040 IF N = THEN RETURN 
2050 INPUT "REPLACEMENT ITEM"! S$ ( N ) 
2060 GOTO 2000 
2900 REM 

3000 REM DELETE ITEMS 
3005 N = 

3010 CLS: PRINT @ 9» "DELETE ITEMS" 
3020 PRINT @ 34 » "PRESS (ENTER) WHEN 

FINISHED" 
3030 PRINT: INPUT "ITEM TO DELETE"! N 
3035 IF N > Y-l THEN 3030 
3040 IF N = THEN RETURN 
3050 FOR X = N TO Y-2 
3060 S$(X) = S$(X+1 ) 
3070 NEXT X 
3080 S$(X) = " " 
3090 Y = Y-l 
3100 GOTO 3000 
3900 REM 

4000 REM PRINT ITEMS 
4010 FOR X = 1 TO Y-l STEP 15 
4020 FOR Z = X TO X+14 
4030 PRINT Z? S$(Z) 
4040 NEXT Z 

4050 INPUT "PRESS (ENTER) TO CONTINUE"! C$ 
4060 NEXT X 
4070 RETURN 
4900 REM 

5000 REM SAME ITEMS ON TAPE 
5010 CLS: PRINT @ 135* "SAME ITEMS ON TAPE" 
5020 PRINT @ 234» "POSITION TAPE" 
5030 PRINT @ 294 , "PRESS PLAY AND RECORD" 
5040 PRINT @ 388* "PRESS -(ENTER) WHEN READY" 
5050 INPUT R$ 

5060 OPEN "0" , *-li "LIST" 
5070 FOR X = 1 TO Y-l 
5080 PRINT #-1 > S$(X) 
5090 NEXT X 

5100 CLOSE *-l : RETURN 
5900 REM 
G000 REM LOAD ITEMS FROM TAPE 
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Speed Reading 



10 REM SPEED READING 

20 CLS: PRINT @ 32. "HOW MANY WORDS PER 

MINUTE" 
30 INPUT "DO YOU READ"! WPM 
40 FOR X = 1 TO 23 
S0 READ A$ : PRINT @ 256 , A$ 
70 FOR Y = 1 TO (3G0/WPM) * 4G0 : NEXT Y 
80 REM Y LOOP SETS LINES/MIN 
90 NEXT X : END 

100 DATA SCARLETT OHARA WAS NOT BEAUTIFUL 
110 DATA BUT MEN SELDOM REALIZED IT WHEN 
120 DATA CAUGHT BY HER OWN CHARM AS THE 
130 DATA TARLETON TWINS WERE, IN HER FACE 
140 DATA WERE TOO SHARPLY BLENDED 
150 DATA THE DELICATE FEATURES OF HER 
1G0 DATA "MOTHER. A COAST ARISTOCRAT OF" 
170 DATA "FRENCH DESCENT, AND THE HEAVY" 
180 DATA ONES OF HER FLORID IRISH FATHER 
190 DATA "BUT IT WAS AN ARRESTING FACE," 
200 DATA "POINTED OF CHIN, SQUARE OF JAW" 
210 DATA HER EYES WERE PALE GREEN 
220 DATA "WITHOUT A TOUCH OF HAZEL," 
230 DATA STARRED WITH BRISTLY BLACK 
240 DATA LASHES AND SLIGHTLY TILTED 
250 DATA "THE ENDS, ABOVE THEM, HER THICK" 
2G0 DATA "BLACK BROWS SLANTED UPWARDS," 
270 DATA CUTTING A STARTLING OBLIQUE LINE 
280 DATA IN HER MAGNOLIA-WHITE SKIN--THAT 
290 DATA "SKIN SO PRIZED BY SOUTHERN WOMEN' 
300 DATA AND SO CAREFULLY GUARDED WITH 
310 DATA "BONNETS, VEILS, AND MITTENS" 
320 DATA AGAINST HOT GEORGIA SUNS 



Memory Test 



This program uses an array to test both yours and your computer's 
memory: 

5 DIM A(7) 

10 PRINT "MEMORIZE THESE NUMBERS" 

15 PRINT "YOU HAVE 10 SECONDS" 

20 FOR X = 1 TO 7 

30 A(X) = RND( 100) 

40 PRINT A(X) 

50 NEXT X 

G0 FOR X = 1 TO 460 * 10 ; NEXT X 

70 CLS 

80 FOR X = 1 TO 7 

90 PRINT "WHAT WAS NUMBER" X 

100 INPUT R 

110 IF A(X) = R THEN PRINT "CORRECT" ELSE 

PRINT "WRONG - IT WAS" A(X) 
120 NEXT X 
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ASCII Character Codes 

These are the ASCII codes for each of the characters on your keyboard. 
The first column is the character; the second is the code in decimal no- 
tation; and the third converts the code to a hexadecimal (16-based 
number). 



CHARACTER 


DECIMAL 


HEXADECIMAL 




CODE 
32 


CODE 


(SPACEBAR) 


20 


I 


33 


21 


// 


34 


22 


# 


35 


23 


$ 


36 


24 


% 


37 


25 


& 


38 


26 


/ 


39 


27 


( 


40 


28 


) 


41 


29 


* 


42 


2A 


+ 


43 


2B 


/ 


44 


2C 


- 


45 


2D 




46 


2E 


/ 


47 


2F 





48 


30 


1 


49 


31 


2 


50 


32 


3 


51 


33 


4 


52 


34 


5 


53 


35 


6 


54 


36 


7 


55 


37 


8 


56 


38 


9 


57 


39 




58 


3A 


/ 


59 


3B 


< 


60 


3C 


= 


61 


3D 


> 


62 


3E 


? 


63 


3F 


@ 


64 


40 


A 


65 


41 


B 


66 


42 


C 


67 


43 


D 


68 


44 


E 


69 


45 


F 


70 


46 


G 


71 


47 


H 


72 


48 


I 


73 


49 


J 


74 


4A 


K 


75 


4B 


L 


76 


4C 


M 


77 


4D 


N 


78 


4E 
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CHARACTER 


DECIMAL 


HEXADECIMAL 




CODE 


CODE 


O 


79 


4F 


P 


80 


50 


Q 


81 


51 


R 


82 


52 


S 


83 


53 


T 


84 


54 


U 


85 


55 


V 


86 


56 


w 


87 


57 


X 


88 


58 


Y 


89 


59 


z 


90 


5A 


CD* 


94 


5E 


CD* 


10 


OA 


CD* 


8 


08 


CD* 


9 


09 


(BREAK) 


03 


03 


(CLEAR) 


12 


OC 


(ENTER) 


13 


OD 



*lf shifted, the codes for these characters are as follows: (CLEAR) is 92 
(hex 5C); CD is 95 (hex 5F); CD is 91 (hex 5B); & is 21 (hex 15); 
and CD is 93 (hex 5D). 



Lowercase Codes 

These are the ASCII codes for lowercase letters. You can produce these 
characters by pressing the (SHIFT) and QD keys simultaneously to get 
into an upper- lowercase mode. The lowercase letters will appear on 
your screen in reversed colors (green with a black background). 



CHARACTER 


DECIMAL 


HEXADECIMAL 




CODE 


CODE 


a 


97 


61 


b 


98 


62 


c 


99 


63 


d 


100 


64 


e 


101 


65 


f 


102 


66 


g 


103 


67 


h 


104 


68 


i 


105 


69 


J 


106 


6A 


k 


107 


6B 


I 


108 


6C 


m 


109 


6D 


n 


110 


6E 


o 


111 


6F 


P 


112 


70 


q 


113 


71 
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CHARACTER 


DECIMAL 


HEXADECIMAL 




CODE 


CODE 


r 


114 


72 


s 


115 


73 


t 


116 


74 


u 


117 


75 


V 


118 


76 


w 


119 


77 


X 


120 


78 


y 


121 


79 


z 


122 


7A 
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GRAPHICS SCREEN WORKSHEET (128 x 192) 
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GRAPHICS SCREEN WORKSHEET (256 x 192) 
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GRAPHICS SCREEN WORKSHEET (128 x 96) 
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SET/RESET WORKSHEET (64 x 32) 
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PRINT @ WORKSHEET (32 x 16) 
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Extended Color BASIC Colors 

Here are the codes for the nine colors you can create on your 
computer: 



Code 


Color 





Black 


1 


Green 


2 


Yellow 


3 


Blue 


4 


Red 


5 


Buff 


6 


Cyan 


7 


Magenta 


8 


Orange 



The color may vary in shade from these, depending on your TV. Color 
(black) is actually an absence of color. 

COLOR-SET 



Mode 


Color 

Set 


Two-Color 
Combination 


Four-Color 
Combination 


4 



1 


Black/Green 
Black/Buff 


— 


3 




1 


— 


Green/Yellow/Blue/Red 
Buff/Cyan/Magenta/Orange 


2 




1 


Black/Green 
Black/Buff 





1 




1 


— 


Green/Yellow/Blue/Red 
Buff/Cyan/Magenta/Orange 







1 


Black/Green 
Black/Buff 


— 



MUSICAL NOTE/NUMBER 



Number 


Note 


1 


C 


2 


C#/D- 


3 


D 


4 


E-/D# 


5 


E/F- 


6 


F/E# 


7 


F#/G- 


8 


G 


9 


G#/A- 


10 


A 


11 


A#/B- 


12 


B 



Note: PLAY does not recognize the notation B# or C-. Use the num- 
bers 1 and 12 respectively or substitute C for B# and B for C-. A ?FC 
Error occurs if you try to use either of these notations. 
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Extended Color Basic 
Error Messages 



Abbreviation Explanation 



/'O Division by Zero. It's impossible to divide 

by zero, even tor computers, 

AO Attempt to Open a file that is already open. 

if you press RESET during cassette I/O, 
you'll get this message. Turn the computer 
off and on again. 

BS Bad Subscript. The subscripts in an array 

are out of range. For example, if you have 
A(12) in your program without a preceding 
DIM line that dimensions array A for 12 or 
more elements, you'll get this error. Use 
DIM to dimension the array. 

CN Can't Continue. If you use the CONT com- 

mand and you're at the END of program or 
in other non-continue situations, you'll get 
this error. 

DD Attempt to Redimension an Array. You can 

dimenension an array only once. For exam- 
ple, you can't have DIM A(12) and DIM 
A(50) in the same program. 

DN Device Number Error. You may use only 

three device numbers with OPEN, CLOSE, 
PRINT, or INPUT— 0, -1, or -2. If you use 
another number, you'll get this error. 

DS Direct Statement. The data file contains a 

direct statement. This error can be caused 
by attempting to CLOAD a data file. 

FC Illegal Function Call. This error occurs 

when you use a parameter (number or vari- 
able) with a BASIC word that is out of 
range. For example, PLAY":" causes this 
error. 

FD Bad File Data. This error occurs when vou 

PRINT data to a file or INPUT data from 'the 
file, using the wrong type of variable for the 
corresponding data. For example, INPUT 
#-1,A, when the data in the file is a string, 
causes this error. 

FM Bad File Mode. This error occurs when vou 

try to INPUT data from a file OPEN 'for 
OUTPUT(O), or PRINT data into a file 
OPEN for INPUT(I). 
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Abbreviation Explanation 



ID Illegal Direct Statement. For example, you 

can use INPUT only as a line in the pro- 
gram, not as a command line. 

IE Input past End of file. Use EOF to check to 

see when you've reached the end of the file. 
When you have, CLOSE the file. 

lO Input/Output Error. This error is often 

caused by trying to input a program or data 
file from a bad tape. 

LS String too long. A string may contain only 

255 characters. 

NF NEXT without FOR. NEXT is being used 

without a FOR statement. This error also oc- 
curs when you have the NEXT lines re- 
versed in a nested loop. 

NO File Not Open. You can't input or output 

data to a file until you have OPENed it. 

OD Out of Data. A READ was executed with 

insufficient DATA for it to READ. A DATA 
statement may have been left out of the 
program. 

OM Out of Memory. All available memory has 

been used or reserved. 

OS Out of String Space. There is not enough 

space in memory to do your string opera- 
tions. You may be able to CLEAR more 
space. 

OV Overflow. The number is too large for the 

computer to handle. (ABS(Xj>IE38) 

RG RETURN without COSUB. A RETURN line 

was encountered without a prior GOSUB. 

SN Syntax Error. This could result from a mis- 

spelled command, incorrect punctuation, 
open parentheses, or an illegal character. 
Retype the program line or command. 

ST String formula too complex. A string opera- 

tion was too complex to handle. Break it 
into shorter steps. 

TM Type Mismatch. This occurs when you try- 

to assign numeric data to a string variable 
(A$ = 3) or string data to a numeric variable 
(A = "DATA"). 

UL Undefined Line. The program contains a 

GOTO, GOSUB, or other branching line 
that asks the computer to go to a nonexist- 
ing line number. 
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A Formula In Hand Is Worth 

Two In the Book . . . 
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= AB 
= AC 
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Derived Functions 
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Valid Input Ranges 



Inverse Sine 


-1<X<1 


Inverse Cosine 


-1<X<1 


Inverse Secant 


X<-orX>1 


Inverse Cosecant 


X<-1 or X>1 


Inverse Hyper. Cosine 


X>1 


Inverse Hyper. Tangent 


X*X<1 


Inverse Hyper. Secant 


0<X<1 


Inverse Hyper. Cosecant 


XOO 


Inverse Hyper. Cotangent 


X*X>1 



Certain special values are mathematically undefined, but our functions 
may provide invalid values: 

TAN and SEC of 90 and 270 degrees 
COT and SCS of and 1 80 degrees 

For example, TAN(1.5708) returns a value but TAN(90*.01 745329) re- 
turns a DIVISION BY ZERO error. 90*.01 745329 = 1.5708 

Other values that are not available from these functions are: 



ARCSIN(-1) 
ARCSIN( 1) 
ARCCOSH) 
ARCCOS( D 
ARCSEQ-1) 
ARCSEC( 1 
ARCCSCH) 
ARCCSC( D 



-PI/2 

PI/2 

PI 



-PI 



-PI/2 

PI/2 



Please note that the above information may not be exhaustive. 



Decimal Address 


Contents 


Hex Address 


0-1023 


System Use 


0-3FF 


255 


Direct Page RAM 


OFF 


toes 


Extended Page RAM 


3FF 


1024-1535 


Text Screen Memory 
Graphic Screen Memory 


400-5FF 


1536-3071 


Page 1 


600-BFF 


3072-4607 


Page 2 


C00-11FF 


4608-6143 


Page 3 


1200-1 7FF 


8144-7679 


Page 4 


1800-1DFF 


7680-9215 


Page 5 


JE00-23FF 


9216-2559 


Page 6 


24O0-9FF 


2560-12287 


Page 7 


2A0O-2FFF 


12286-13823 


Page 8 

Program and Variable 


3000-35FF 


13824-16383 


Storage 


3600-3FFF 


32788-40089 


Extended Color 8ASJC 


80O0-9FFF 


40960-49151 


Color BASIC 


A000-BFFF 


49152-65279 


Cartridjp Memory 


COOO-FEFF 


65280-65535 


Input/dutput ] 


FF00 FFFF 
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Color Computer Line 
Printer Variables 



Variable 


Hexadecimal 
Address 


Decimal 
Address 


Initial 
Hex 


Value 
Dec 


LPTBTD Baud 




MSB 
LSB 


0095 
0096 


149 
150 


00 

57 



87 


LPTLND Line Delay 




MSB 
LSB 


0097 
0098 


151 
152 


00 
01 



1 


LPTCFW Comma Field Width 






0099 


153 


10 


16 


LPTLCF Last Comma Field 


009A 


154 


70 


112 


LPTWID Line Printer Width 






009 B 


155 


84 


132 


1 PTPOS 






009C 


156 


00 


00 



Your computer's software uses the following initial conditions: 

The baud rate is 600 

The printer width is 1 32 columns 

The printer generates a busy output when not ready 

The printer automatically executes a carriage return at 1 32 

columns. 

The RS-232 Interface uses a four-pin DIN connector. A diagram of the 
pin out is shown in your introduction manual. 

Pin 4 is the computer output to the printer. Pin 3 is ground. Pin 1 is not 
used for a printer. Pin 2 should be connected to the busy output (or sta- 
tus line) of the printer. If your printer does not provide a status indica- 
tion, then this line must be connected to a positive voltage of greater 
than 3 volts. This tells the computer that the printer is ready at all times. 
In addition, the line delay variable should be set to the proper value. 

The following list of alternate values for the line printer variables is pro- 
vided as an aid in interfacing nonstandard printers. 





Decimal Value 




Baud Rate 


(msb,lsb) 


Hexadecimal Value 


120 baud 


458 (1 and 202) 


01 CA 


300 baud 


180 


00 BE 


600 baud 


87 


0057 


1 200 baud 


41 


0029 


2400 baud 


18 


0012 
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Exit Conditions 

None 

CHROUT = [A002] 

Outputs a Character to Device 

CHROUT outputs a character to the device specified by the contents of 
6F (DEVNUM). 

DEVNUM = -2 (printer) 
DEVNUM = (screen) 

Entry Conditions 

On entry, the character to be output is in A. 

Exit Conditions 

All registers except CC are preserved. 

CSRDON = [A004] 

Starts Cassette 

CSRDON starts the cassette and gets into bit sync for reading. 

Entry Conditions 

None 

Exit Conditions 

FIRQ and IRO are masked. U and Y are preserved. All others are 
modified. 

GIVABF = [B4F4] 

Passes parameter to BASIC 

Entry Conditions 

D = parameter 

Exit Conditions 

USR variable = parameter 

INTCNV = [B3ED] 

Passes parameter from BASIC 

Entry Conditions 

USR argument = parameter 

Exit Conditions 

D = parameter 

JOYIN = [AOOA] 

Samples Joystick Pots 

JOYIN samples all four joystick pots and stores their values in POTVAL 
through POTVAL + 3. 

Left Joystick 

Up/Down 1 5 A 

Right/Left 15B 

Right Joystick 

Up/Down 1 5C 

Right/Left 15D 

For Up/Down, the minimum value = UP 
For Right/Left, the minimum value = LEFT. 

Entry Conditions 

None 
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ROM Routines 

The Color BASIC ROM contains many subroutines that can be called by 
a machine-language program. Each subroutine will be described in the 
following format: 

NAME — Entry address 
Operation Performed 
Entry Condition 
Exit Condition 

Note: The subroutine NAME is only for reference. It is not 
recognized by the Color Computer. The entry address is 
given in hexadecimal form; you must use an indirect jump to 
this address. Entry and Exit Conditions are given for ma- 
chine-language programs. 

BLKiN = [A006] 

Reads a Block from Cassette 

Entry Conditions 

Cassette must be on and in bit sync (see CSRDON). CBUFAD contains 
the buffer address. 

Exit Conditions 

BLKTYF; which is located at 7C, contains the block type: 

= File Header 

1 = Data 

FF = End of File 
BLKLEN, located at 7D, contains the number of data bytes in the block 
(0-255). 

2* = 1,A = CSRERR = (if no errors). 
Z = 0, A = CSRERR = 1 (if a checksum error occurs). 
Z = 0, A = CSRERR = 2 (if a memory error occurs). 

Note: CSRERR = 81 
Unless a memory error occurs, X = CBUFAD + BLKEN. If a memory 
error occurs, X points to beyond the bad address. Interrupts are masked. 
U and Y are preserved, all other modified. 

*Z is a flag in the Condition Code (CO register. 

BLKOUT = [A008] 

Writes a Block to Cassette 

Entry Conditions 

The tape should be up to speed and a leader of hex 55s should have 

been written if this is the first block to be written after a motor-on. 

CBUFAD, located at 7E, contains the buffer address. 

BLKTYF; located at 7C, contains the block type. 

BLKLEN, located at 7D, contains the number of data bytes. 

Exit Conditions 

Interrupts are masked. 

X = CBUFAD + BLKLEN. 

All registers are modified. 

WRTLDR = [A00C] 

Turns the Cassette On and Writes a Leader 

Entry Conditions 

None 
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Exit Conditions 

None 

CHROUT = [A002] 

Outputs a Character to Device 

CHROUT outputs a character to the device specified by the contents of 
6F (DEVNUM). 
DEVNUM = -2 (printer) 
DEVNUM = (screen) 

Entry Conditions 

On entry, the character to be output is in A. 

Exit Conditions 

All registers except CC are preserved. 

CSRDON = [A004] 

Starts Cassette 

CSRDON starts the cassette and gets into bit sync for reading. 

Entry Conditions 

None 

Exit Conditions 

FIRQ and IRO are masked. U and Y are preserved. All others are 
modified. 

GIVABF = [B4F4] 

Passes parameter to BASIC 

Entry Conditions 

D = parameter 

Exit Conditions 

USR variable = parameter 

INTCNV = [B3ED] 

Passes parameter from BASIC 

Entry Conditions 

USR argument = parameter 

Exit Conditions 

D = parameter 

jOYIN = [AOOA] 

Samples Joystick Pots 

JOYIN samples all four joystick pots and stores their values in POTVAL 
through POTVAL + 3. 

Left Joystick 

Up/Down 1 5 A 

Right/Left 15B 

Right Joystick 

Up/Down 1 5C 

Right/Left 15D 

For Up/Down, the minimum value = UP 
For Right/Left, the minimum value = LEFT. 

Entry Conditions 

None 
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Exit Conditions 

Y is preserved. All others are modified. 

POLCAT = [A000] 

Polls Keyboard for a Character 

Entry Conditions 

None 

Exit Conditions 

Z = 1, A = (if no key seen). 

Z = 0, A = key code, (if key is seen). 

B and X are preserved. All others are modified. 
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BASIC SUMMARY 



STATEMENTS 



BASIC statements are commands that tell your computer to do some ac- 
tion, such as drawing a circle on the screen. Use BASIC statements as 
lines in your program. 



AUDIO Connects or disconnects cassette output to TV speaker. 

CIRCLE (x,y),r,c,hw,start,end Draws a circle with center at point (x,y), 
radius r, specified color c, height/width ratio (hw) of 0-4. Circle 
can start and end at specified point (0-1). 

CLEAR n,h Reserves n bytes of string storage space. Erases variables, h 
specifies highest BASIC address. 

CLOAD Loads specified program file from cassette. If filename is not 
specified, first file encountered is loaded. Filename can be a maxi- 
mum of 8 characters. 

CLOADM Loads machine-language program cassette. You may specify 
an offset address to add to the loading address. 

CLOSE#D£V Closes access to specified file. If you do not specify de- 
Wce, all open files are closed. 

CLS c Clears display to specified color c. If you do not specify color, 
green is used. 

COLOR {foreground, background) Sets foreground and background 
color. 

CONT Continues program execution after you have pressed (BREAK) 
or used the STOP statement. 

CSAVE Saves program on cassette (program name can be 8 characters 
or fewer). If you specify A, program is saved in ASCII format. 

CSAVEM name, start, end, transfer Saves a machine-language file on 
cassette. 

DATE Stores data in your program. Use READ to assign data to 
variables. 

DEF FN Defines numeric function. 

DEFUSR n Defines entry point for USR function n.n = 0-9. 

DEL Deletes program lines. 

DIM Dimensions one or more arrays. 

DRAW Draws a line beginning at specified starting point of specified 
length of specified color. Also draws to scale, draws blank lines, 
draws nonupdated lines, and executes substrings. If you do not 
specify starting point, last DRAW position or (128,96) is used. 

EDIT Lets you edit a program line. 
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END Ends program. 

EXEC (address) Transfers control to machine-language programs at 
specified address. If you omit address, control is transferred to ad- 
dress set in last CLOADM. 

FOR ... TO STEP/NEXT Creates a loop in program that the computer 
must repeat from the first number to the last number you specify. 
Use STEP to specify how much to increment, the number each 
time through the loop. If you omit STEP, the computer uses 1 . 

GET (start)-(end),destination,G Reads the graphic contents of a rectan- 
gle into an array for future use by PUT. 

GOSUB Calls a subroutine beginning at specified line number. 

GOTO Jumps to specified line number. 

IF test THEN . . . action 1 ELSE, action 2 Performs a test. If it is 
true, the computer executes action 1 . If false, the computer exe- 
cutes action 2. 

INPUT Causes the computer to stop and await input from the 
keyboard. 

INPUT#-1 Input data from cassette. 

INSTR (position, search, target) Searches for the first occurrence of 
target string in search string beginning at position. Returns the po- 
sition at which the match is found. 

LET Assigns value to variable (optional). 

LIST Lists (displays) specified line(s) or entire program on screen. 

LLIST Lists specified program line(s) or entire program to printer. 

LINE (x1,y1)-(x2,y2), PSET or PRESET,BF Draws a line from (xl,y1) to 
(x2,y2). If you omit (xl,yl), the last end point or (128,96) is used. 
PSET selects foreground color, and PRESET selects background 
color. B draws a box with (x1,y1) and (x2,y2) as the opposing cor- 
ners. BF fills in the box with foreground color. 

LINE INPUT Inputs line form keyboard. 

MID$ (oldstr, position, length) Replaces a portion of oldstr with an- 
other string. 

MOTOR Turns cassette ON or OFF. 

NEW Erases everything in memory. 

ON . . . GOSUB Multiway branch to call specified subroutines. 

ON . . . GOTO Multiway branch to specified lines. 

OPEN m,#dev,i Opens specified file (f) for data transmission (m) to 
specified device (dev). m may be I (Input) or O (Output), dev may 
be #0 (screen or keyboard), #-1 (cassette), or #-2 (printer). 

PAINT (x,y),c,b Paints graphic screen starting at point (x,y) with speci- 
fied color (c) and stopping at border (b) of specified color. 

PCLEAR n Reserves n number of 1 .5 K graphics memory pages. 

PCLS c Clears screen with specified color (c). If you omit color code, 
current background color is used. 
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PCOPY Copy graphics from source page to destination page. 

PLAY Plays music of specified note (A-G or 1-12), octave (O), volume 
(V), note-length (L), tempo(T), pause (P), and allows execution of 
substrings. Also sharps (# or +) and flats (-). 

PMODE mode, start-page Selects resolution and first memory page. 

POKE (location, value) Puts value (0-255) into specified memory 
location. 

PRESET Resets a point to background color. 

PRINT Prints (displays) specified message or number on TV screen. 

PRINT #-1 Writes data to cassette. 

PRINT #-2 Prints an item or list of items on the printer. 

PRINT TAB Moves the cursor to specified column position. 

PRINT USING Prints numbers in specified format. 

PRINT @ scr pos Prints specified message at specified text screen 
position. 

PSET (x,y,c) Sets a specified point (x,y) to specified color (c). If you 
omit c, foreground is used. 

PUT (start)-(end), source, action Stores graphics from source onto 
start/end rectangle on the screen. (Array rectangle size must match 
GET rectangle size.) 

READ Reads the next item in DATA line and assigns it to specified 
variable. 

REM Lets you insert comment in program line. The computer ignores 
everything after REM. 

RENUM newline, startline, increment Lets you renumber program 
lines. 

RESET (x,y) Resets a point. 

RESTORE Sets the computer's pointer back to first item on the first 
DATA line. 

RETURN Returns the computer from subroutine to the BASIC word fol- 
lowing GOSUB. 

RUN Executes a program. 

SCREEN screen-type, color-set Selects either graphics (1) or text (0) 
screen and color-set (0 or 1). 

SET (x,y,c) Sets a dot at specified text screen position to specified 
color. 

SKIPF Skips to next program on cassette tape or to end of specified 
program. 

SOUND tone, duration Sounds specified tone for specified duration. 

STOP Stops execution of a program. 

TROFF Turns off program tracer. 

TRON Turns on program tracer. 
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FUNCTIONS 

BASIC functions are built-in subroutines that perform some kind of com- 
putation on data, such as computing the square root of a number. Use 
BASIC functions as data within your program lines. 

ABS (numeric) Computes absolute value. 

ASC (sir) Returns ASCII code of first character of specified string. 

ATN (numeric) Returns arctangent in radians. 

CHR$ (code) Returns character for ASCII,, control, or graphics code. 

COS (numeric) Returns cosine of an angle given in radians. 

EOF (dev) Returns FALSE = if there is more data; TRUE = -1 if 
end of file has been read. 

EXP (numeric) Returns natural exponential of number (e number). 

HEX$ (numeric) Computes hexadecimal value. PRINT HEX$ (30) 

INKEY$ Checks the keyboard and returns the key being pressed (if 
any). 

INT (numeric) Converts a number to an integer. 

JOYSTK (j) Returns the horizontal or vertical coordinate (j) of the left 
or right joystick: 

= horizontal, left joystick 

1 = vertical, left joystick 

2 = horizontal, right joystick 

3 = vertical, right joystick 

LEN (str) Returns the length of a string. 
LOG (numeric) Returns natural logarithm. 
MEM Finds the amount of free memory. 

MID$ ($tr,pos,Iength) Returns a substring of another string starting at 
pos. If you omit length, the entire string right of position is returned. 

PEEK (mem he) Returns the contents of specified memory location. 

POINT (x,y) Tests whether specified graphics cell is on or off. x (hori- 
zontal) =0-63; y (vertical) = 0-31 . The value returned is -1 if the 
cell is in a text character mode; if it is off, or the color code if it is 
on. See CLS for color codes. 

POS (dev) Returns current print position. 

PPOINT (x,y) Tests whether specified graphics cell is on or off and re- 
turns color code of specified cell. 

RIGHTS (strength) Returns right portion of string. 

RND (n) Generates a "random" number between 1 and n if n > 1 , or 
between and 1 if n = 0. 

SGN (numeric) Returns sign of specified numeric expression: 
-1 = negative; = 0; 1 = positive. 

SIN (numeric) Returns sine of angle given in radians. 
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STRINGS (length, code, or string) Returns a string of characters (of 
specified length) specified by ASCII code or by the first character of 
the string. 

STR$ (numeric) Converts a numeric expression to a string. 

SQR (numeric) Returns the square root of a number. 

TAN (numeric) Returns tangent of angle given in radians. 

TIMER Returns contents or lets you set timer (0-65535). 

USRn (numeric) Calls your machine-language subroutine. 

VAL (str) Converts a string to a number. 

VARPTR (var) Returns addresses of pointer to the specified variable. 

OPERATORS 

BASIC operators perform some kind of operation on data, such as add- 
ing two numbers. 

(U Exponentiation 

-/+ Unary negative, positive 

V Multiplication, division 

+ /- Addition and concatenation, subtraction 

<,>, = ,< = ,> = ,<> Relational tests 

NOT 

AND 

OR 
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INDEX 



$ See STRING$ 

; See print 

, See print 

:, separating BASIC statements 61 

+ , addition 15 

+ , concatenation 65 

-, subtraction 1 5 

*, multiplication 15 

/, division 15 

CD exponentiation 1 74 

(BREAK) 26 

(SHITD QD 18,158 

(SHIFDCT ) 55 

(SPACEBAR) 53 

?/0 ERROR 16 

?LS ERROR 66 

?OS ERROR 65 

?SN ERROR 16 

?TM ERROR 20 

ABS 79 

absolute motion 1 1 7 

alphabetizing See sorting 

analyzing 162 

AND 

operator 78 

PUT parameter 125 
angle 199 

Answers to Do-lt-Yourself Programs 207-25 
arc See CIRCLE 
arctangent See ATN 
arrays 

multidimensional 162 

numeric 150 

string 155 
ASCII character codes 241 
ATN 175 
B See DRAW 
BF See DRAW 
background color 92 
BASIC summary 260-62 
black-on-green 1 8 
Bull's Eye, program 108 
Card Dealing, program 153, 166 
change, edit key 54 
CIRCLE 107 
CLEAR 66 
CLOSE 145 
CLS 16 
COLOR 92 

color See also CIRCLE, COLOR, DRAW, PAINT, 
PSET 

codes 1 6 

modes 99 

sets 96 

foreground and background 92 

reference 249 
concatenate ( + ) 65 
constants 195 
CONT 75 
correcting mistakes See errors 



COS 1 74 

cosine See COS 

Craps, program 46 

Crooked Line, program 93 

current graphics screen 103 

DATA 48 

data 

numeric v string 15, 20-21 

sorting 159 

storing on tape 145 
debugging 193 
DEFFN 193 
DEFUSR 198 
degrees 177 
DEL 57 
delete 

edit key 54 

program lines 26, 57 
derived functions 253 
device See OPEN 
DIM 124 
division ( / ) 15 
division error 16 
Do-lt-Yourself Programs 

answers 207-25 

Bull's Eye 108 

Card Dealing 153, 166 

Craps 46 

Crooked Line 93 

House 93,108,110,113 

Ice Cube 117 

Inventory Shopping List 238 

Lightning 106 

Mailing List 183 

Memory Test 240 

Rolling Dice 45 

Russian Roulette 44 

Sine Waves 174 

Speed Reading 240 

Star 116 

Triangle 1 72 

Typing Test 73 

Vocabulary 48 

Voting Tabulation 150 

When Saints Go Marchin' In 140 

Writing an Essay 156 

Yo-Yo 104 
DRAW 1 1 5 
E notation 79 
EDIT 53 
Ellipse 109 
ELSE 77 
END 40 
EOF 145 
errors 

?/0 ERROR 1 6 

?LS ERROR 66 

?OS ERROR 65 

?SN ERROR 16 

?TM ERROR 20 

correcting a program line 26 

correcting a typographical error 13 

description of all error messages 250-51 
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EXP 177 

exponentiation 1 74 

exponents 79 

extend, edit key 56 

field specifiers See PRINT USING 

FIX 177 

flipping screens 103 

foreground color 92 

FOR . . . NEXT 30 

formulas, mathematical 252 

functions 

BASIC 263-64 
derived 253 

games 43 

GET 123 

GIVABF, ROM routine 199 

GOSUB 60 

graphics 

memory 98, 102 
resolution 99 
screen 103 

Graphics Screen Worksheet 
grid 244-46 
use of 85 

green-on-black 18 

grid, screen See Graphics Screen 
Worksheet, PRINT (a. Worksheet, 
SET/RESET Worksheet 

grid size 99 

hack, edit key 55 

height/width ratio See CIRCLE 

HEX$ 196 

House, program 93, 108, 110, 113 

Ice Cube, program 1 1 7 

IF 40 

information See Data 

INKEY$ 71 

INPUT 25 

insert, edit key 55 

INSTR 181 

INT 50 
INTCNV 220 

Inventory Shopping List, program 238 
joysticks 129 
JOYSTK See joysticks 
kill, edit key 56 
LEFT$ 66 
LEN 65 
LET 193 

Lightning, program 106 
LINE 89 
LINE INPUT 186 
line printer variables 255-56 
LIST 24 
list, edit key 53 
LLIST 157 
LOG 1 76 
logarithm See LOG 
loops 30-39 
lowercase codes 242-43 
machine-language subroutines 197-200 
returning values 201 
stack space, use with USR 202 



Mailing List, program 183 
mathematical formulas 252 
MEM 76 

memory See a/so MEM, graphics memory 
description 19 
map 254 
Memory Test, program 240 
MID$ '67, 183 
mistakes See errors 
modes, DRAW parameter 1 1 5 
motion commands, DRAW parameter 1 15 
multiplication (*) 1 5 
musical notes See PLAY 
nested loop 37 
NEXT 30 

NOT, PUT parameter 125 
notes, musical 1 34 
numbers 15 
numeric 
arrays 1 50 
data 21 
octave See PLAY 
Odds and Ends 205 
ON GOSUB 76 
ON GOTO 77 
OPEN 145 
operators 

+ , addition 1 5 
+ , concatenation 65 
-, subtraction 15 
*, multiplication 15 
/, division 15 
CD, exponentiation 1 74 
AND, logical 78 
OR, logical 78 
options, DRAW parameter 115 
OR 
operator 78 
PUT parameter 125 
pages 
clearing (PCLEAR) 104 
description 102 
copying (PCOPY) 105 
PAINT 112 

parentheses, rules on 63 
pause-length See PLAY 
PCLEAR 104 
PCLS 96 
PCOPY 1 05 
PEEK 131 
PLAY 133 
PMODE 98-106 
POINT 127 
POS 181 
PPOINT 87 
PRESET 87, 91 
PRESET, PUT parameter 125 
print 
display (PRINT) 14 
printer (PRINT #-2) 191 
punctuation, rules on 27 
recorder (PRINT #-1) 145 
PRINT @ 45 
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PRINT @ Worksheet 

grid 248 

use of 45 
printer 

line printer variables 255-56 

listing a program (LUST) 157 

printing data (PRINT #-2) 191 

use of 157 
PRINT USING 187 
prompt 1 3 
PSET 85 

PSET, PUT parameter 125 
PSET, LINE parameter 89 
PUT 123 
radians 173 
READ 48 
relative motion 1 1 7 
renumber, program lines 57 
RESET 127 
resolution 99 
RESTORE 49 
RETURN 60 

reversed characters 18, 158 
RIGHTS 66 
RND 43 

Rolling Dice, program 45 
ROM routines 257-59 
RUN 24 

Russian Roulette, program 44 
sample programs 226-38 
scale See PLAY 
scale a display See DRAW 
scientific notation See E notation 
search See EDIT 
SCREEN 95 

screen positions See Graphics Screen 
Worksheet, PRINT (a Worksheet, 
SET/RESET Worksheet 
SET 127 
SET/RESET Worksheet 

grid 247 

use of 1 28 
SGN 79 
SIN 173 
sine See SIN 
Sine Waves, program 1 74 
sorting 159 
SOUND 17,33 
Speed Reading, program 240 
square root See SQR 
SQR 172 

stack space, use w/mach-1 202 
Star, program 1 1 6 
start page 1 03 
STEP 32 
STOP 75 
STR$ 79 

string See also LEFT$, LEN, MIDS, RIGHTS 
arrays 1 55 
data 21 

description 15,20,180 
STRINGS 180 
subscripted variables See arrays 



subroutines See GOSUB, machine- 
language subroutines 

TAN 1 75 

tangent See TAN 

taping 145 

technical information See machine- 
language subroutines, ROM routines, 
memory map, printer variables 

tempo See PLAY 

THEN 40 

TIMER 194 

tone, SOUND parameter 17 

Triangle, program 1 72 

trigonometry functions 1 72 

TROFF 193 

TRON 1 93 

truncate See FIX 

Typing Test, program 73 

USR 198 

VAL 73 

valid input ranges 254 

variables 

simple 19-22 
subscripted See arrays 

VARPTR 200 

video memory 95 

Vocabulary, program 48 

volume See PLAY 

Voting Tabulation, program 150 

When Saints Go Marchin' In, program 140 

whole numbers See FIX, INT 

Word Processing, program 157,182 

worksheets See Graphics Screen 

Worksheet, PRINT (d Worksheet, 
SET/RESET Worksheet 

Writing an Essay, program 156 

Yo-Yo, program 1 04 
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